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Foreword 


Adventure games are played in the world of your 
imagination. They are like a story and can take any form you 
like. You can be the last survivor of a space expedition 
marooned on a distant planet, or shrunk in size and trapped 
within the circuits of an alien computer. The game explained 
in this book takes place in an undersea world with sharks, 
sea horses and the bleached bones of previous explorers. 

In computer terms, an adventure game requires a large 
database to store all the descriptions used in the game. A 
database is a collection of information which the computer 
retrieves and acts on according to the instructions within the 
program. Since the player uses verbs and nouns to describe 
the actions he or she wants to take, the game relies on the 
computer's ability to recognize and process these 
accordingly. Text data is processed as strings of characters, 
and adventure games of this sort rely on the way that strings 
and parts of strings can be identified and operated upon. In 
this book, the adventure game has been divided into two 
sections. The first section gives the main program and the 
data statements. The second section explains how the verbs 
which the player uses, call up the relevant sections of 
program and direct the progress of the game. 
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The plan 


The first stage of writing an adventure game is to plan the 
territory which the player will explore. This is usually a 
series of “rooms" or "locations.” In our game, there are 24 
rooms arranged on a four by six grid. Each room has a door 
or doors leading to other rooms, and the player is told which 
exits are available as the game is played In some rooms 
there are objects which may help later on in the game and in 
others there are obstacles which have to be overcome. The 
object of the game is to replace the plug in the plughole in 
room 19, but first you must pass the octopus in room 20. 



START NORTH 


rpventure game plan 


2 KNIFE 


V 

y i 

730NEF/SH 


10 SEE HORSES 

KEY prFC) 


3 GREEN 
MNPCUFFS 


8 BRIGHT 


CHAMBER 


16 URCHINS 


15 BONES 


14- MlRKY ROOM 


13 PAVEYJONES 
LOCKER BNP 
YELIONHHNPCUFFS 


21 cRprm$Mfa 


19 PLUGHOLE 


Cfl&JN 


COUTH 


■» 

































































* 


To play the game, you must give the computer instructions, 
using a number of verbs and nouns that the computer 
understands. You can move from one room to another by 
typing “GO NORTH” (or any other of the four directions). The 
verb "LOOK" is useful, because it may reveal things in the 
room that are not apparent at first sight. If you type “HELP" at 
any stage, you will be shown a list of the verbs you can use, 
in case you've forgotten them. To pick up any of the objects 
that you encounter on the way, type “GET KNIFE" (or any 
other object). When planning your game, it’s a good idea to 
play it on paper first, to make sure that it works. 
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The data statements 

APPLE He 

Type in the DATA on the opposite page, ignoring the black 
marker lines. You should format the DATA at this point so 
that the words are not illegibly broken in two when printed 
on the screen. The best way to begin is to count the number 
of characters you have typed within the inverted commas. 
The Apple will allow a maximum of 40 characters across the 
screen; if you find that a word would be broken in two at the 
fortieth character, then type blank spaces up to the end 
of the line and begin the next word at the 41st character. 



In text only games like this, you have to rely on your 
imagination to set the scenes, so your adventure will be 
more fun to play if your location DATA is long and 
descriptive. Your DATA statements can be much longer 
than ours given opposite, but you must remember that the 
number of characters that you use will depend upon the 
particular limitations set by your computer. Your DATA 
statement could read something like this: 6050 DATA "You 
are standing on the seabed. In front of you, to the south, there 
is an unnaturally square shaped patch of seaweed that clings 
to the barnacled hull of an ancient pirate ship." 


COMMODORE 64 

The Commodore 64 will not allow you to type more than 80 
characters to a program line. Therefore, to enable you to use 
the DATA on the opposite page you must split each line into 
two lines of DATA. This is best illustrated by the following 
example. . . 

Type in the DATA at line 6010 as far as the black marker 
line, and end it at this point by typing a double quote ("); then 
press the RETURN key. 

Start a'new line number and continue with the DATA after 
the black marker, to give line 6011 DATA "BLOCKED BY A 
HIGH CORAL REEF”. Commodore users should treat the 
rest of the DATA in the same way, ending at line 6201, which 
should read: 6201 DATA "FACE THE JAWS OF A GREAT 
WHITE SHARK". Later on in the book, you will see that the 
various room descriptions are READ from the DATA in pairs 
(labeled T$ and D$) and added together in line 5150 to make 
a complete description. 

At the end of this book, the complete program listing is given 
in full. If you turn to page 41, you'll find the Commodore DATA 
split into its appropriate line numbers. 
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6000 REM 
6010 DATA 
BLOCKED BY 
6020 DATA 
I 


H 


ROES CRIP "I" 1QMS **■> 
' YOU ARE ON THE SEABED, 
HIGH CORAL REEL„" 

'YOU ARE ON "I HE SEABED, 


I HE WAY WEST is| 


W-H -l.E D WALT, TOWERS ABOVE: YOU,, " 
6030 DATA "YUM ARE IN FRO I i I OR A 
BAH S!.. E NO HANDLE,, " 

6040 DATA "YOU ARE ON THE SEABED 
BARNACLED WALL ROWERS ABOVE YOU.. " 
6uOU I >h f it n YUU GRb; UN j Hb 3I:::. Pt BI:::.JJ 

whL.l has a square patch 


TO I HE. SOUTH A| 

WOODEN DOOR. YDI..l| 

TO THE SOUTH a| 

TO fl-IE SOUTH | 
OF SEAWEED GROWING 


O 

© 

© 


O B ARM A Cl.. ED 
ON IT"..” 

6060 D A T A " Y 00 A R h 0 N ' I' H E S E A B E I.) „ "I" 0 "!" I T E S 0 U' I" H | I S 
CD di 'il-'TTf-iC! ED NR I i .., A ill NO hUJLKG THE. WhY EAST,.” 

607 0 DATA "YOU ARE IN A LONG, LOW CAVERN.. AT THE 
b: ND h i.... h K GE hUJNEb .!. Sio 1 .i. so 30 1 Hbl .i. NG rROLJND 
' D A. i Ai !l Y \ JU AlY-E 

.SJH..OOR AIM'D ROOE 

> uni a "you are: 


© 


FAR 

608 


©!S 


© 


IN A BRIGHTLY LIT CHAMBER „ 7 HIS. J 
G L. U W .11 i S HI.IT i IE RIN G I... IG IT' I ., '' 

IN A DIMLY LIT CAVERN WITH | 

HUGE DUOE AI THE FAR END,, YOU CAN SEE NO HANDLE. " 

6.1.00 DATA "YOU -AO I N A ROOM 10.10... OF FILJNETTY | 

SEAHORSE'S 1 THEY NUZZLE , OUR HAND IN A FRIENDLY MANNER" 

6 1 10 DATA "VmU o?l Hi A TlAil ROnlLTHi NORTH WALL..||S) 

HAS A SNAI...L. WINDOW Hi IT 'THROUGH WHICH YOU CAN SEE 
I HE SEABED" 

Cl EG Df) I Pi !! YUH hAT: .!. U 

the: 1’JhL.L.S .j FL..OOE and row- 
ex I f 3" 


AN AN--A.Z.MGLY 

P\ b< I:::. H L L Li Li A lY b 


> Li U R H 1:::. IY U LJ i v i „ | 
tG hKE. A LL I Hb 


h 1. Y. O D A ■ I ■ A !! V Li!! J A h :i: N A T I N Y I.... IT ' f L E R G 0 N T H A T 1 S | 
OCCiJEIED BY A CHI- >■ I MGGRI BED NJYiH THE INITIALS D.J„ 

1 G.Ubi i h 1! YUU hRL I. [■■■! f t L-Ol„ MURK Y RUUN , GEE Y l v IU.o| 

BN 1 Ri. ..3 ARi.JUND YUU AND vl.JLJ f-b.b.L A b A .i. N i fJlJKREN i Fs AS I l! 

6 i 50 DATA YGU ARE 1IM A GLOOMY AND EERIE PLACE,, ALL 
AROUND YGLj ARE THE BANES OF LONG DEAD EXPLORERS 1 

L)A !r 5! YA i! ARE J N i i AGMhKR KGUli* I HE faUU I H EMI I 
HATHE WORDS 'DO NOT ENTER'| ABOVE IT. THE NORTH AND 
WEST" D00E Wh Y5 ARE 0R AWi. I NG W T TT-I SE A 0ROl-i 1NS' 1 
6 1. Z 0 D Ain " Y 01J A R E IN A 0 I R C i J L.. A R R 0 0 IT W I I H A V | R y 
STRONG CURRENT THAT SWI RI..S | AROUND THE ROOM AND DOWN A 
MULE IN THE FLOOR" 

61 GO DA I A "YOU ARE IN A CORRIDOR WITH A STRONG 
CURRENT GOING WES I.YOUR WAy|iS BLOCKED BY THE ARMS OF 
A HUGE RAINBOW COLORED OCTOPUS,, " 

6190 DATA "YGU'RE IN A SHIPWRECKED CAPTAIN'S CABIN 
AND FEEL THE FLOW OF WATER TO THE WEST" 

6 2 C' 0 DATA ! 1 Y 0 0 SEl E A R U S f-i 0 F 3 W I R I.... IN G W A "I" E R A N D | F' A 0 E 
THE JAWS Of- A GREAT WHILE SHARK,," 
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Data statements continued 

Lines 6210 to 6270 store the exits initially available from each 
location as a series of four numbers in the order north, south, 
east and west. If a number is zero, there is no exit in the 
corresponding direction. For example, location 8 (the 
BRIGHT CHAMBER) has exits 0,14,0,7. This means that there 
is no exit from this location going north or east, but south 
leads into room 14 and west leads to room 7. The following 
lines contain a list of every object that the player will be able 
to pick up. After each object description is a number which 
represents the room number in which the object is found. If 
the number is zero, then the object will only appear later on 
in the game. If the number is 99, then the player is carrying 
the object. 

Line 6510 is a list of the nouns that the computer will 
recognize. These are the directions and the names of 
objects. Only the first three letters are stored, since this is 
how the program will use them. Finally, line 6530 stores the 
verbs that the computer will recognize. They are stored in 
their entirety since they will be required to appear on the 
screen when the player types HELP. 
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THE MAIN PROGRAM 

You are about to enter the undersea kingdom of Neptune’s 
Caverns. In this section of the program the initial screen 
which presents the player with instructions is given. The 
variables used in the game are given their initial values. 

These operations are all called up by the control program 
which is only seven lines long! 


NEPTUNE"S CftUERNS 

YOU HAUE FOUND THE MAGIC PLUG THAT 
BELONGS AT THE BOTTOM OF THE SEA, AND 
DECIDE TO REPLACE IT BEFORE THE WATER 
DRAINS AWAY. WITH YOUR SCUBA GEAR YOU 
DIUE INTO THE OCEAN AND BEGIN YOUR 
ADUENTURE... 

(IF YOU NEED ASSISTANCE TYPE HELP) 

YOU ARE IN FRONT OF A WOODEN DOOR. YOU 
CAN SEE NO HANDLE. 


EXITS: 


EAST 


WEST 


WHAT DO YOU DO NEXT? 
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The first part of the listing is the CONTROL PROGRAM 
contained in lines 10 to 70. The program is structured so that 
it is grouped into subroutines. The control program calls 
these subroutines in the order they are required - enabling 
you to see at once how the program works. Each subroutine 
is given later on in the listing. On a call to each subroutine 
the computer goes to the relevant subroutine - for example, 
GOSUB 5000 - the initialize subroutine - takes control to 


line 5000. 

10 

REM 

NEPTUNE'S 

CAVERNS 

20 

GOSUB 

GOOO : REM 

INITIALIZE s. 

YJ 30 

GOSUB 

1OOO : REM 

INPUT ^ 

40 

GOSUB 

2000:: REM 

SORT 

O 50 

IF WF 

^ O AMD LF 

^ 0 THEN CD TO 30 | 

60 

GOSUB 

OF-OO: REM 

END 


END 


- ..^ 


Line 20 calls the initialize subroutine, where all the variables 
and arrays needed for the game are set up. The next two 
subroutines, INPUT and SORT, do most of the work of the 
program. Line 50 tests for the end of the game by examining 
the win flag WF and the lose flag LF. If neither flag is set, the 
instruction GOTO 30 sends the program back to line 30, 
ready to repeat the process. At line 60 the game is over, and 
the END subroutine will display a suitable message on the 
screen, followed by a question to play again. If the player 
wishes to have another go, he or she replies and the game is 
RUN again, otherwise line 70 ENDs the program. By using 
subroutines, the program is essentially written in seven lines. 
The computer has been told what to do, and in which order 
to do it. All that now remains is to write each subroutine so 
that the computer can jump to the relevant line number 
when the subroutine is called. The first subroutine is 
INITIALIZE. The first eight lines clear the screen (using the 
HOME command in line 5010) and then PRINT an 
introduction to the game. 


* **•*■* * * •* * I n :i: 7 i a l ]. z E * * * * •* * •* •:«: * * * 

PRINT TAB( 1O);"NEPTUNE'S CAVERNS" 

. PRINT "■ YOU HAVE POUND THE MAGIC PE.MS 4 
" 1 HA I BELONGS AT THE BOTTOM OF THE SEA" 

" AND DECIDE TO REPLACE IT BEFORE THE" 

M A I E. K L'Kh.I. NS AN Ay „ W .i i H y'UUK S CUE Pi GEAES 
" YOU DIVE INTO THE OCEAN AND BEGIN YOUR”' 

" ADVENTURE,, 

TAB* 3):: "IF YOU NEED ASS I STANCE T’#:E 


5000 

REN 

50 1 0 

HOME s 

5020 

PR I NT 

5030 

PR I NT 

5040 

PR I NT 

5050 

PR I NT 

5060 

PRINT 

5 0 7 0 

PR I NT 

5080 

PR I NT 

' HELP 

' 11 
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It is a good plan to give the variables used in the game their 
initial values while the player is reading the instructions. 
Initialization of variables can take time in complex games. 


5090 NN = 14s W « I I ; CP = IN = 1 : HC =' OsWF - OsLF 
0:: Ul~ i.i s I ■ I- ~ Os LT — O . 

5100 DIM LOT<24} :: DIM EX (24,4) S DIM MOT (KIN) s DIM VBT 
( W i : D I M OBI? ( 1 0 ) ; D I M OB ( 1 0 ) 

5110 FOR I = 1 I'll 24 * 

5120 if :i: = 17 or i: == is or :t ~ 23 or . 1 : - 24 then lot 

(I) » LOst (12) 5 GOTO 5140 ( 

5130 READ DT; LOT ( I ) == DT 

5140 NEXT I 


5150 

FOE I 

- .1 

TO 24 1 : 

FOR J ::r. | 

TO 

4;: Ell 

1AD EX( 

NEXT 

J: NEXT 

I 






5 1 & O 

FOE I 

1 

7 0 :l. 0 :: 

READ OB T ( 

I ) 

R E R L> 

OB 1 ) :: 

5 1 70 

FOE I 

= :i. 

TO NN: 

READ NOT ( 

!E ) 5 

NEXT 

I 

5:1. 80 

FOE I 

** 1 

TO VV 

READ VBTf 

j: ) 

NEX"I 

1 . 

5190 

GOSUB 

40 O 1 

0: RETURN :: REM 

LOOK 








Line 5090 gives the variables (NN, W, CP, IN, HC) their 
initial values, and sets the flags (WF, LF, FF, CF) to zero. The 
next line DIMensions six arrays, reserving space for 
descriptions of rooms, L0$; exits from each room, EX; nouns, 
N0$; verbs, VB$; objects, 0B$; and the position of each 
object OB. For example, DIM L0$ (24) sets aside memory 
space for 24 descriptions and DIM EX (24,4) reserves space 
for 24 room numbers, each with four exits. Lines 5110 to 5180 
READ information from the DATA statements into the various 
arrays, using a FOR... NEXT loop. Note that line 5120 tells 
the computer that locations 17,18,23 and 24 all use the same 
DATA. A list of the variables used is given below. Line 5190 
tells the computer to GOSUB 4000 as this subroutine uses the 
end of the "LOOK” section of the SORT subroutine. 



VARIABLES _ 

NN — number of nouns W= number of verbs _ 

rtr = CHXKKCTER7>&SmC>N(R00M3 ^fN = NUMBER OF ITEMS IN INVENTORY 
__ HC - NUMB ER OFHANU CUFFS 


OBi CD = OBJECT 

(I) -■=- OBJECT NUMBER: 

/r>4 CDL= LOCATIONDES TF I PTION — 
EXCCP.NOEXIT FR OM LOCATION 


NO 4 CD = NOON 
pTO CTT-NOOfTNWAWBR^ 
vff 4 - VERB 

VB Cl) — VERS NUMSER 


WF= WIN FLAG 


UF = UNLOCK FLAG 


CF- CUT FLAG- 


LF= LOST FLAG 


FF- FLIPPER FLAG 
























































































1 ooo 

REM INPUT 





10 1 O V 

B* s* " " :: N G * 

" " 




1 020 

.INPUT "WHAT 

DO YOU-DO NEXT ?"; ET 




1 030 

FDR I == 1 TO 

LEM (E*) 




1040 

IF Nil)* (R* 

, I , 3. ) = M M THEN OB:! 


LET" i "■}':■ 

(R*,3) 

:: NO* == 

M ID* (R*, I 

+- 1,3)11 - LEN (R;:i 

) 



1 050 

next :t: 





:L 060 

IF NO* < > 

" M THEN RIOT URN 




1070 R 

* - LEFT* (1 

R* , 3) 




1 080 

IF R* == "NOR 

" OR E* === ” S0U H OR F 


M EA8 :! 

Uln jn;* 

=: 1 ' W E." S 

" ‘THEN OB* :: ' : 

! 1 N i.) ! 1 N U *■ * s H F:. i 

'URN 



;). 090 

IF R* ~ "HE... 

” OR E* - l! |NO 11 0E l :: 

i * : 

11 LOO 11 

'IFiEN N 

□ * = N 

DDU'OOB* R 

*:: RETURN 




1 1 00 

PRINT u :i: DON 

- T END ERST AND THAT !i 




1 1 1 0 

GOTO 1010 
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The next subroutine is INPUT.' It accepts a two-word 
"sentence” in the form verb/noun, or a one-word instruction. 
The computer tells the player if it doesn’t recognize the 
sentence and returns to the beginning for another attempt. 
Acceptable one word instructions are "HELP,” 
“INVENTORY," “LOOK” and the four directions. The latter is 
to save the player having to type "GO NORTH,” etc. It is 
enough to type “NORTH" on its own, or even “NOR.” The 
subroutine puts “GO" into VB$ (verb) and “NOR" into NO$ 
(noun). “HELP," “INVENTORY" and “LOOK" are treated 
similarly as verbs with a dummy noun “DOO” inserted. Line 
1010 ensures that VB$ and NO$ are empty before starting 
and line 1020 puts the player's response into R$. Lines 1030 
to 1050 split R$ into VB$ and NO$ so that verbs and nouns can 
be handled separately. 


G! 

Vt 

: t 

10F 


! 1/ 


WEST 




VERB 


HELP 


muL 


B 

0 
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NOlYAf 

1V 

E 

5 

tvou/v 

p 

0 

0 


VERB 


PUMMY A/O/N 


THE COMPUTER WILL STRIP THE NOUNS RND VERBS TO THE / 

LETTERS END HOT ON THEM RCCORP/NOLY ___ 
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A loop is started in line 1030 and the loop limit is set to the 
character LENgth of the sentence. Line 1040 checks IF the 
next character in the sentence is a space - if it is, VB$ is set 
to the first three characters and NO$ to the three characters 
after the space. Finally, the loop counter is set to a maximum 
to stop the search going further. If NO$ contains something, 
then line 1060 ends the subroutine, since the player must 
have typed a two word sentence. If the sentence contains no 
spaces, it may still be an acceptable single word. It is then 
stripped to its first three characters and lines 1080 and 1090 
test to see if it is a direction or a command. If the computer 
recognizes the word, VB$ and NO$ are arranged and the 
subroutine is ended. If the computer doesn't recognize the 
word, line 1100 PRINTS an appropriate message. Line 1110 
loops back to the beginning of the subroutine to allow the 
player to give another instruction. 



The SORT subroutine decides if the three letter words are 
valid - a technique often called “parsing." The loop between 
lines 2010 and 2030 tries to identify the verb. If VB$ is the 
same as the first three letters of one of the verbs stored in the 
VB$ array, then line 2020 sets VB equal to the value of the 
loop variable. The loop is ended by setting the loop variable 
to a maximum. In the same way, lines 2040 to 2060 check for 
a valid noun, except that the nouns are already stored as 
three letters so they can be compared directly. 

Line 2070 checks if NO or VB are still zero. If so, a message 
is printed and the subroutine ends here. If the noun and verb 
pass all these tests, they are valid words and the relevant 
action is taken in line 2080. For example, if the value of VB is 
four (verb is "CUT") then the computer will GOTO the fourth 
line number in the list and carry out the instructions given 
from that line onwards, until the subroutine is ended with the 
RETURN instruction. These sections of the SORT subroutine 
are explained in the next chapter. 
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REM END 
IF CP - 
BITES OFF 
IF CP ^ L 
ARE VERY 


: THEM PRINT "WITH CNF SNIP’) 
YOUR HEhD" s GO TO 5G40 
■ THEN PRINT 11 I HE HP I MRS UN 


T TIME 
PRINT 
ND THE 
SAVED 
INPUT 
l'F LEFT* 
PRINT' "Bv 


POISCNCUBi YGU DIE A 

GUTTY 
THE PLUG 
GPON ST11 


TAKE I'HRIECAUTIONG 
" NIT'Pi A ■' THU IMP 
SWIRLING WATERS 
I ITE SEAS ! 

"DO YOU WISH I'D 
( E T ,, 1 ) m M Y' 


SNAP THE 

HE Si ii UR 
ITORR I. Bi.. T" Dt..'A I ) I 

SL4G 

DROPS IN TO THE. H 
!.... LUNGRA I'ULAT I GITS 


I' •' I... A Y f -i G Pi .1 N' 
THEN RUN 




•BYE 


RETURN 


The last subroutine is END. This is called when either the 
win or lose flag is set - the only two conditions when the 
game can end. The player dies if he or she enters the 
SHARK ROOM (character position number 22), so line 5510 
tests if the player is there. If the player is in the SHARK 
ROOM the computer displays the gruesome message 
“WITH ONE SWIFT SNAP THE SHARK BITES OFF YOUR 
HEAD." Control will pass to line 5540, jumping over lines 
5520 and 5530. 


If the character position is not equal to 22 (the SHARK 
ROOM), line 5520 tests if CP (the character position) is equal 
to 16 (the SEA URCHIN ROOM). The bad news message is 
displayed on the screen. If the player is in neither of these 
rooms, he or she must have won the game. Line 5530 tells the 
player of his or her success, and lines 5540 and 5550 offer the 
player another go. 


YOU WIN IF YOU POT THE 
PLUG IN THE HOLE IN 
BOY. 19. 

WITH A "THUNK" THE 
PLUG DROPS INTO 
THE HOLE AND THE 

Swirling waters 

GROW STILL. 

CONGRATUL ations, 

VOU SAVED THE SEAS 




YOU LOSE IF YOU EXIT 
BOY 16 NORTH OR WEST 
WITHOUT WEARING 
FLIPPERS. 

THE SPINES ON THE 
SEA URCHINS ARE VERY 
POISONOUS f YOU PIE 
A horrible DEATH. 
NEXT TIME TAKE 
PRECAUTIONS. 



18 



























The first part of the listing is the CONTROL PROGRAM in 
lines 10 to 70. The program is grouped into subroutines, 
which are called in the order they are required - enabling 
you to see at once how the program works. Each subroutine 
is called by the GOSUB instruction followed by a program 
line number. When the subroutine has been completed a 
signal to RETURN to the control program is given. 



Line 20 calls the INITIALIZE subroutine where all the 
variables and arrays needed for the game are set up. The 
next two subroutines, INPUT and SORT, do most of the work 
of the program. Line 50 tests for the end of the game by 
examining the win flag WF and the lose flag LF. If neither 
flag is set, the instruction GOTO 30 sends the program back 
to line 30, ready to repeat the process. At line 60 the game is 
over, and the END subroutine will display a suitable 
message on the screen, followed by a question to play again. 
If the player wishes to have another go, he or she replies and 
the game is RUN again, otherwise line 70 ENDs the program. 
The first subroutine is INITIALIZE. In line 5010, the screen is 
cleared using the reversed heart symbol and then the game 
instructions are displayed. 
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It is a good plan to set the variables to their initial values after 
printing the instructions on the screen (lines 5100 to 5210). 
This allows the player time to read theunstructions while the 
computer is busy with the DATA. 


{00 

ON Of 

4 ji W- i ;i. 

:: GROT :: ! SO- 1 :: 

H O' : -- 

0MF‘ : -"0 

» 

LE--0:: UF-=0 :: 


!' 1 1 1 

1 il i 0 






5 1 10 

Li.!. M 

I T -24) 

DIM DT(200 » 

D I. M 

EX (24 

'i 

4) :: DIM NOT CNN) 


.o i m 

0 0:7 (DO) 






3 IPO 

'0 ]' il 

□ n> t. 1.0 > 

DIM OB C 1 0) 





5:!. 30 

FOR 

.1-0. TO 

24 





3.!. '10 

t j 

OR 

T-M.B OR 0-2 

3 0 

!7 I -074 


THEN "Ml: ( I ) ••••- T ;i- ( 


DT ( I 

) -DT i 1.7 

j »■ GOTO 51 60 





5 150 

EE AD 

TO „ D $ :: 

i 1 ( i ) - I 10: i O 

(:i:) 

D 4 : 



5 :l 60 

EXT 

.1 






3 j. 70 

f'GR 

I ■■■■:: 1. TO 

24:: ROR J- 1. 

TO 

4 :: READ 


EX ( I ,, J ) :: NEXT J 

5 :i. 60 

E U H 

0-1. .TO 

1 Oi: RR7iR 0BT 

( J. ) 

ob t j: i 

s 

NEXT ’ I 

51 90 

FOE 

i: -1. TO 

MM:; MOO - 170T 

C :i:) 

:: NR> 1 

:i: 


5200 

FOR 

IRO. TO 

270: READ RBT 

cl i 

s NEXT 

T 


32 1 0 

o oou 

B 4000:: 

RETURNS RE 

M L 

00M 






Line 51Q0 gives the variables (NN, W, CP, IN, HC) their 
initial values, and sets the flags (WF, LF, UF, FF, CF) to zero. 
The next lines DIMension seven arrays, reserving space for 
descriptions of rooms, T$ and D$; exits EX; NO$ and VB$ 
(nouns and verbs), objects; OB$; and starting location of each 
object OB. For example, DIM OB$ (10) sets aside memory 
space for 10 objects to be described. Lines 5130 to 5200 
READ DATA into the various arrays. Note that line 5140 tells 
the computer that locations 17,18,23 and 24 all use the same 
descriptive DATA. Line 5210 instructs the computer to 
GOSUB line 4000 because INITIALIZE shares its end 
with the "LOOK" section of the SORT subroutine. 


VARIABLES 


f)N = A /UMBER OF NOUNS 
fp = CHAKAC rER POSITION CROON\) 
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The next subroutine is INPUT. It accepts a two-word 
“sentence" in the form verb/noun, or a one-word instruction. 
If neither of these are recognized, the computer PRINTS a 
message and returns to the beginning for another attempt. 
Acceptable one word instructions are "HELP," 
“INVENTORY," "LOOK” and the four directions. The latter is 
to save the player having to type "GO NORTH,” etc. It is 
enough to type "NORTH" on its own, or even "NOR." The 
subroutine puts "GO" into VB$ (verb) and "NOR" into NO$ 
(noun) for processing later. "HELP," "INVENTORY" and 
"LOOK" are treated similarly as verbs with a dummy noun 
"DOO" inserted. Line 1010 ensures that VB$, NOS and R$ are 
empty before starting, and line 1020 puts the player's 
response into R$, Lines 1030 to 1050 contain the loop that 
splits R$ into VB$ and NO$, The rest of this subroutine is 
explained over the page. 
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A loop is started in line 1030 and its limit is set to the 
character LENgth of the sentence. Line 1040 checks IF the 
next character in the sentence is a space - if so, THEN VB$ is 
set to the first three characters, and NO$ to the three 
characters after the space. Finally, the loop counter is set to 
a maximum to stop the search going further. If NO$ contains 
something, then line 1060 ends the subroutine, as a two-word 
sentence must have been recognized. If the program has 
reached line 1070 the sentence contains no spaces, but may 
still be an acceptable single word. It is then stripped to its 
first three characters. Lines 1080 and 1090 see if it is a 
direction or a command. If the word is valid, VB$ and NO$ 
are arranged and the subroutine is ended. The sentence will 
have made no sense at line 1100, and a message is PRINTed. 
Line 1110 loops back to the start to give the player another 
attempt to enter a valid instruction. 



The SORT subroutine decides if the three - letter words are 
valid - a technique often called "parsing." The loop between 
lines 2020 and 2040 tries to identify the verb. If VB$ is the 
same as the first three letters of one of the verbs stored in the 
VB$ array, then line 2030 sets VB equal to the value of the 
loop variable. The loop is ended by setting the loop variable 
to a maximum. In the same way, lines 2050 to 2070 check for 
a valid noun, except that the nouns are already stored as 
three letters so they can be compared directly. Line 2080 
checks if NO or VB are still zero. If so, a message is printed 
and the subroutine ends here. If the noun and verb pass all 
these tests, they are valid words and the relevant action is 
taken in line 2090. For example, if the value of VB is four (verb 
is "CUT”) then the computer will GOTO the fourth line 
number in the list and carry out the instructions given from 
that line onwards until the subroutine is ended with the 
RETURN instruction. These sections of the SORT subroutine 
are explained in the next chapter. 
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The last section to be defined is the END subroutine. If either 
the win or lost flag is found to be set in line 50, then control 
falls through to line 60 and there is a call to GOSUB 5500. Line 
5510 tests to see if the player is in the SHARK ROOM 
(character position 22). If so, a death message is printed and 
control GOes TO line 5570, where the player is asked if he or 
she would like another game. 

If the character position is not 22, lines 5520 and 5530 test IF 
CP is equal to 16 (the SEA URCHIN room), and print a 
message. If neither of these conditions are met, the player 
has won the game. A message is printed in line 5540, and 
lines 5570 and 5580 deal with the "play again" routine. 


YOU WIN IF you PUT THE 
PLUG IN THE HOLE IN 
BOX 19 

WITH A " THUNK " THE 
PLUG DROPS INTO 
THE HOLE AND THE 
SWIRLING WATERS 
GROW STILL. 
CONGRATULATIONS 

you saved the seas. 




YOU LOSE IF you EXIT 
BOX 16 NORTH OR WEST 
WITHOUT WEARING 
FLIPPERS. 

THE SPINES ON THE 
Sea urchin are very 
POISONOUS! YOU DIE 
A HORRIBLE DEATH. 
NEXT TIME TAKE 
PRECAUTIONS. 
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Testing your program 


Before you carry on with the next section of the program, it is 
a good idea to save your work so far on tape or disk. You'll 
find the instructions for this in your user’s manual. To test that 
the program is correct, turn to page 31 or 37 and type in the 
"LOOK" section beginning at line 4000. Then follow the 
instructions in the box below. You will be able to explore the 
first six rooms in the game. 


RPPLBJLe: 1. TYPE 2065 /F N0<=4 THENCP=EH(CP,NO): GOTO 4000 

HIT [TewTT] 2. TYPE 20 6 ENPPROC H/T PeTUFFJ 

3. TYPE RUN H/ r WHEN YOU ERE SPHSE/EP EVERYTHING 

RUNS CORRECTLY, PELETE LINES 2065HNP 2066 BEFORE PROCEEPWG. 


EXITS: EAST WEST 

WHAT DO YOU DO NEXT 780 EAST 

YOU ARE ON 1 HE SEABED.TO THE SOUTH IS A 
BARNACLED WALL... A CLIFF BLOCKS THE WAY 
EAST. 

A PAIR OF FLIPPERS IS HERE 

EXITS: WEST 

WHAT DO YOU DO NEXT ? 



EXITS: 

EAST WEST 




WHAT DO 

YOU DO NEXT 7GO WEST 




YOU ARE ON THE SEABED.TO THE BOUT) 
BARNACLED WALL TOWERS ABOVE YOU. 
A KNIFE IS HERE 

T A 



EXITS: 

FAST WEST 




WHAT DO 

YOU DO NEXT 



L 




. 


COMMOPOREH. ENTER 2075/FN(K- 4 THEN LET CP-EX(cP,NO): GOTO 4000 

HIT fPTr&CJ 2. ENTER 2076 RETURN HIT 3 , ///r 

fRuPp . WHEN YOU ARE SPT/SF/EP EVERYTHING RUNS PS IT SHOULP, 
PELETE ONES 2(275 FNP2076 BEFORE PROCEEP/N&. 
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THE VERB ROUTINES 

This section of the program is actually part of the 
subroutines which begin at line 2000. It contains each of the 
verbs that the player can use to direct his or her actions 
during the game, and makes sure that the computer gives 
the appropriate response. Since the computer automatically 
places each line in its numerical order, this section will 
appear under the relevant subroutine in the program 
listings. 


EXITS: 


EAST 


WEST 


WH A T DO VOU DO NEXT? 60 EAST 

YOU ARE ON THE SEABED,TO THE SOUTH A 
BARNACLED WALL TOWERS ABOUE YOU. 


EXITS- 


EAST 


WEST 


WHAT DO VOU DO NEXT? GO EAST 

YOU ARE ON THE SEABED.TO THE SOUTH A 
BARNACLED WALL HAS A SQUARE PATCH OF SEA 
WEED GROWING ON IT. 


E A S I 


WEST 


WHAT DO VOU DO NEXT? CUT SEAWEED 
THE SEAWEED FALLS AWAY TO REUEAL 
OPEN WINDOW. 


ft N 
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Control goes to line 3000 when the verb identified in the 
SORT subroutine is "GO” (verb 1). Line 3010 PRINTS a 
message if the noun wasn’t one of the four directions. Line 
3020 tests if an attempt is made to move in a direction with no 
exit that is, if the exit array EX (CP,NO) equals zero. Line 
3030 tests if the player has stepped on a sea urchin and died! 
It does this by checking the character position (16=SEA 
URCHIN ROOM), then the direction (north or west is 
dangerous); then it checks the FLIPPERS flag, FF (FF = 1 
means that the player is wearing flippers), If line 3040 is 
reached, all is well and CP is changed to its new location. 
GOTO 4000 sends control to the "LOOK" section which 
PRINTS the new position. 


LA 


3 .1. O O R E l v l * *■ -K 1 -Vr K E I ■*• *■■*■ *' ft" * *• *' *“ *' *' 

3.1.10 IF MO == 6 AMD OP ^ 13 i HEIM PRINT " i I 3 i 00 M 

HEAVY 1 '3 RETURN ^ 

3 :l. 2 O I F IM C) < 8 I IIE N P R 1 N T " D O M ' T B E 8 I I... i... V 1 ' :: P E' i' UR I I ^ 

3130 IF OB (MO . 7) 99 AND NOT . " HAN !l THEN O 

I 19 1 N T ’ 1 Y O l.J ' V E A I.... E E A D Y G O T IT ! " R E' I 1.1 RIM ' 

3140 FOR I - 7 TO . 1.0 (r 

3150 IF OB ( II - CP AMD NO • 14 THEN NO - I * 7: Hi...: :=■- H 
C + 1 :: I ' .10 
3160 NEXT' I 

3170 IF OB (MO . 7) - OP THEN PRINT" " 0P „ " :: OB <N(J ■■■■ ' m 

= 99 s IM IN -i- 1:: RETURN C 

3 I 8 O' P R I I'M T 11 I' T I S ' IM T H E19 E ' ' U: I • i H IEIM 


If the verb number is two, then control is sent to the "GET" 
section. Lines 3110 and 3120 anticipate any attempt to do the 
impossible. Line 3130 checks if the object is already carried, 
i.e. has the value 99 . . . AND that the noun input is not “HAN." 
Lines 3140 to 3160 check if a pair of handcuffs is being taken 
by comparing the location of each handcuff OB (I), with 
character position CP. If OB (I) = CP then the handcuff 
inventory HC is increased. Line 3170 compares the object 
location OB (NO-7) with the character position CP and 
PRINTs the "O.K." message. The object location takes the 
value 99 to indicate the object has been picked up. 
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32 J. 0 I F N□ < B "!'HE N F :: 'R I N T 11 D GN " ' 1" B F. SI !.... i. . 

V ! 11 ! X i; ' 

fURN 

© 

3220 FOR I - 7 TO 10 


0 


3230 IF OB < I) - 99 AND NO - 14 THEN NO - 

j. i 7:: Mu 

::::: j-j 

© 

C ~~ :l. s I = 10 


© 


3240 NEXT J 




3250 IF OB (NO - 75 < > 99 TNEN PR 1 NT !! Y 

U U E'if'-i 9E..M 

1 o 

PL) 

GOT I T 1 s FIE T'URM 


F) 


3260 PRINT ,! 0 „ K, M - OB (NO . 7) - CP:: IN ** IN 

■ ■ .i. 


© 

3270 IF CP - 19 Al'TO NO - 13 PEI PIN klF - 1 


© 


3280 RETURN 






_ 




i 


<V 


In the "DROP” section, line 3210 prevents the player from 
putting down anything that can't be carried. If the item to be 
dropped is a pair of handcuffs, a FOR... NEXT loop in lines 
3220 to 3240, decreases the value of the HC by 1. Should the 
object location not equal 99, line 3250 PRINTS a message to 
inform the player that the object is not carried. If the control 
runs to line 3260, then the object location becomes equal to 
the character position and the inventory is decreased by 1 
because the object has been dropped. Finally, line 3270 
tests for a win, i.e. if the player has dropped the magic plug 
in the plug hole. 

Lines 3300 to 3340 of the “CUT” section prevent the player 
from cutting anything but the seaweed on the barnacled wall 
in location five. At any illegal attempt a message is printed 
and the subroutine is ended. Only if all conditions are 
satisfied will the message in line 3350 be PRINTed. 
Information is then updated - A CLUMP OF SEAWEED will 
be put into location five; an exit will become visible and the 
cut flag CF will be set to 1. In addition, the location description 
LOS (5) is altered before the subroutine is ended. 



330O RE. M * #• * # * •* -ft- «r -it it- * a -it- -it- it f; (j T <t- -it- -it- :*t it- -it -:<t * ;t * it * 

3310 IF OB (1 ) > 99 THEN PR .'I.T--iT "YOU'VE I TO iTT I NO 

SHARP ENOUGH 1 " :: RETURN 

3320 IF NO < > 11 THEN PRINT" " YOU CAN'T CUT ITT, i l :" 

: RETURN 

3330 IF CP < > 5 U-liN PRINT "YOI...I CAN'T LIT THAI 1 

RETURN 

3340 IE CF =- 1 THEN PRINT "YOU'VE ALREADY DONE THAT 
1 ": RETURN 

3350 PRINT "THE SEAWEED FALLS AWAY TO RE Vi* At... aN 
OPEN WINDOW" 

3360 OB (4) = 5: EX (5,2) = 1 1 :: CT- = 1 

3370 LOliji = LET IT U. ITT Co > , 5 # " AN OPEN WIN.DO II IN 

IT ": RETURN 
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3400 HEM •*■■***•*•*#*•*•**#WEAH##****•#••#• *,-•*:• * *•• * * 

3410 IF I I ^ 1 AND i H.i I - "III" I HEN PRINT " YOII VE ^ 

AL. READY GOT T HEN ON 1 " RETURN © 

3420 IF OB C2) 99 AND NO 4 = "ELI" THEM EF - Is OB (2) 

- Ci: F' r :i: im $ 1 ’ r h i- y i r r n ,i c i i , 1 1 o: k e t u e? n 0 

£430 IF NO - |4 AND' EIC > 0 I HUjM , RH NI " I HAT 'S REALLY 

SII LY I": IDE TURN 

3440 PR Ill i "YON CAN'T NEAR THAT 1 " :: RETURN 


© 


The verb "WEAR" allows the player to put on the FLIPPERS 
found in location six. If the player moves west or north from 
location 16 without wearing flippers, then he or she will be 
killed by the poisonous sea urchins. The possibility of the 
flippers already being worn is considered in line 3410. In 
line 3420 the player is allowed to wear the flippers if they are 
being carried, i.e. OB (2) = 99 and IF the noun input is “FLI ” 
The flipper flag (FF) is then set to 1 and the FLIPPERS are 
removed from the items carried with the instruction 
OB (2) = 0. A suitable message is then PRINTed. 



3500 REN *******■•*•■**•**■ ¥ G .1 V E ** * * * •***#•* * * * 

3510 IF CP - 1.0 AND IMG == 1:1. THEN 35Ho 

3520 IF CP = "/ AND NO - 12 THEN 3580 

3530 IF CP a 20 THEN PRINT "THAT WON i DU ANY 

GOOD!": RE TORN 

3540 P RI IM I 11 N 0 T H 1 N 0 H IT RI W A IM I" 5 1 T I " R I-:: "IT .1T IM 

3550 IF OP(4) < > 99 THEN PRINI "YOU HAVEN'T 601 

IT": RETURN 

3560 GB (4) =•- 0; OB (3) = 10 

3570 PRINT' "THEY CROWD FT'. II HMD VOt.l AND fcuNETH I IMG 
(31.. I MTS IN THE CORNER " RETURN 
35 SO IE UP' 5. T > 99 THEN PRINT "YOU HAVEN'T GOT' 
IT": RETURN 

3590 OB C 5 ) = 0 :: E X i 7,2 > ** 1 3 

3600 PRINT "THE PISH SNATCHES THE BONE AMD RETIRES TO 
A CORNER" 

3610 LOT (7) a "you ARE IN A I. GW CAVERN,, A BONER i. bH IS 
I IM T H F C 0 R iJ E R G IM A W 1. i ■ j G G I'M A 1" H I G H 6 0 !-i : E 1 ' R F i' Ui ■ IT 


The "GIVE" section enables seaweed to be given to the sea 
horses in location ten and a bone to be offered to the 
bonefish in location seven. Line 3510 tests for the first 
possibility, and sends control to line 3550 if the player is 
in the correct room (CP = 10) and the noun is "SEAWEED." 
At this line, the seaweed is tested to discover IF it is not 
being carried by the player, i.e. OB (4) < > 99 and if this is 
so, then a suitable message is PRINTed. Otherwise, the 
player must have satisfied all conditions. 
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Line 3560 removes the seaweed OB (4) from the room by 
setting it to zero and the key OB (3) is put into location ten. 

The following line PRINTS a clue-filled message and the 
subroutine ends. 

If conditions in line 3510 are not met, control falls to 3520 
where tests are made to discover if the player is giving a 
bone to the bonefish in location seven - if so, then control 
goes to line 3580. Otherwise a "catch all" message is PRINTed. 
Line 3580 tests if the bone is being carried and if it isn’t then 
a message is PRINTed. However, IF OB (5) = 99 the player 
has satisfied the bonefish and bone conditions, and control 
drops through to line 3590. The bone is removed from the 
room by setting OB (5) to 0. An exit is then opened to the 
south when EX (7,2) is made equal to 13. A message is 
PRINTed in line 3600 that implies that something has 
happened. Finally, the location description LO$ is changed, 
ready for when the player types “LOOK"! 
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Only Davy Jones’ Locker (the CHEST) can be unlocked with 
the key. Line 3630 tests that the player has in fact picked this 
up. It may be that the player will try to unlock the door in 
locations three and nine. However, the door is something of a 
red herring (all good adventure games have these!), and can 
never be opened. Line 3640 deals with this situation and tells 
the player that the key cannot be used. 


Control will only pass from line 3650 if the player is in the 
room, has the key, and the noun input is “CHEST." IF 
everything is in order THEN the unlock flag UF is tested to 
ensure that the player has not previously unlocked the chest. 
Line 3670 sets UF to 1 and the key is located in the room i.e. 
OB (7) is made equal to 13, telling the computer that the key 
stays in the room. A message is PRINTed to guide the player, 
and the subroutine is ended. 
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3710 IF CF' < 5 20 OR NO ■ < > 14 THEN PR I NT "YOU 

CAN’T DO THAT HERE": RETURN 

3720 IF HC < 4 THEN PRINT "YOU HAVEN”! GOT ENOUGH 
FAIRS!"; RETURN 

; 0 PRINT "THE OCTOPUS CAN T HOVE,, HE IS!! I AMUSED’ 
3740 FOR I - 7 TO 10:00(1) -= Os NEXT 1 

3730 H C •- 0 :: E X ( 2 0,4) - 1 V ; L. 0 4(2 0) i... E E ! F ■ I U i (2 0) „ I 

) h- "A MANACLED OCTOPUS SIFS SEEKING": RETURN 


The “USE" verb is designed to allow the player to immobilize 
the octopus in location 20 with four sets of handcuffs, i. e. “USE 
HANDCUFFS." 

Line 3710 checks IF the player is not in location 20 (the 
octopus room) OR the noun number is not 14 (corresponding 
to handcuffs - this prevents the player from trying to use any 
other object in this location). In other words, the message 
"YOU CAN’T DO THAT HERE" appears if the player types 
anything but USE HANDCUFFS in the octopus room. Line 
3720 ensures that the player can do nothing with anything 
less than four pairs of handcuffs. 

If control drops through to line 3730, a message is PRINTed 
that indicates the octopus has been successfully manacled. 
The handcuffs are removed from the player using a FOR ... 
NEXT loop. The handcuff positions are set to zero in line 3740. 
Finally, the number of handcuffs is made zero; a new exit 
becomes available to the west and the description of the 
room LO$ (20), is changed accordingly. 
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5820 IF IN = 0 THEN PRINT "NOTHING 1 RETURN 

5830 FOR I ~ 1 TO 10 

5840 IF OB (I) = 99 THEM PRINT "A ” OR ! ( .! ■ 

5BSO NEXT I: RETURN 


The final three parts of the program make up the very useful 
commands of “INVENTORY," “HELP" and "LOOK," without 
which the game would be extremely difficult to play. If IN 
contains zero then a command to “INVENTORY" would 
produce the words "YOU ARE CARRYING:- NOTHING!" on 
the screen, PRINTed by lines 3810 and 3820, However, if IN 
is not equal to zero, a loop starting at line 3830 will check 
each object to see if it is carried by the player, and PRINTS 
a list of those that are. 
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At the command “HELP," the four lines of program 3900 to 
3930 PRINT each of the verbs on the screen to enable the 
player to construct acceptable two word sentences. A FOR 
... NEXT loop is used to do this with the maximum value of 1 
set to the maximum number of verbs available W. 
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The last section of the whole program concerns the verb 
"LOOK." If you have followed the instructions on page 24 (in 
the RUN box), you will have already typed this part of the 
program. 

The LOOK section displays the location description. This is 
very useful to the player. During the game, the screen is 
continually scrolling, so the location description may 
disappear off the top of the screen. Typing LOOK will allow 
the player to examine his or her surroundings again. 

This section is a little peculiar because it is used as the end 
part of the INITIALIZE subroutine, linked by a GOSUB 
statement, Line 4010 PRINTS the location description LO$ 
(CP). The lost flag LF is set if the player has ignored the 
warning above the south exit of location 16 and entered the 
shark room (location 22). Lines 4020 to 4050 PRINT the object 
found in the location of the player. Note that the mention of 
the BONE is sidestepped in line 4030 to make the player 
think harder about what is happening. Lastly, the available 
exits are PRINTed in lines 4060 to 4100. 
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DO 0 R E M * * * * # # * * * •:* *• G i ! * ¥. «• *• * *• * * if # * - * * * * * 
a !. O 1 F NO >4 1 HEl l PR IN I "t !■ « H MI-IE R E ? ! ' :: RE I"URN 
D 20 IE i £ i PM. i 1 " ■ ‘ THEN print - mo EXIT THAT 
IHA V " RE i URN 

030 IF CPU. 6 AND UNO :! GR 140^4 > AND i i' ■ - THEM LEU. 
RE RJRM 

Vi 4 0 L: P ^ E X (r R „ i\| 0 > ; G 0 S U B 4 0 O 0 
BBO RETURN 


Control is sent from the SORT subroutine to line 3000 if the 
verb is "GO" (verb 1). Line 3010 PRINTS a message if the 
noun wasn't one of the four directions. Line 3020 tests if an 
attempt is made to move in a direction with no exit, that is if 
EX (CP,NO) equals zero. Line 3030 tests if the player has 
stepped on a sea urchin and died! It does this by checking 
the character position (16 — SEA URCHIN room), then the 
direction (north or west is dangerous); then it checks the 
FLIPPERS flag, FF (this takes the value 1 if the player is 
wearing flippers). If these conditions are met then the game 
is lost so LF becomes 1 and the subroutine ends. 
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If the verb number is 2, then control is sent to the "GET” 
section. Lines 3110 and 3120 anticipate any attempt to do the 
impossible. Line 3130 checks IF the object is already 
carried, i.e. has the value 99.. . AND that the noun input is 
not "HAN.” Lines 3140 to 3160 check if a pair of handcuffs is 
being taken by comparing the location of each handcuff OB 
(I), with character position CP. If OB (I) = CP the handcuff 
inventory HC is increased and I is set to its maximum to end 
the loop. Line 3170 checks the object location OB (NO-7) with 
the character position CP and PRINTS the "O.K." message if 
they agree. The object location then takes the value 99 to 
indicate the object has been picked up and the inventory IN 
is increased by 1. 
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3280 RETURN 


In the "DROP” section, line 3210 prevents the player from 
putting down anything that can't be carried. If the item to be 
dropped is a pair of handcuffs, a FOR ... NEXT loop in lines 
3220 to 3240 decreases the value of HC by 1. Should the 
object location not equal 99 then line 3250 PRINTS a message 
to inform the player that the object is not carried. If control 
reaches line 3260 the object location becomes equal to the 
character position and the inventory is decreased by 1. 
Finally, line 3270 tests for a win, i.e. if the player has dropped 
the magic plug into the plug hole. 


Lines 3300 to 3340 of the "CUT" section prevent the player 
from cutting anything but the seaweed on the barnacled wall 
in location five. At any illegal attempt a message is PRINTed 
and the subroutine is ended. Only if all conditions are 
satisfied will the message in line 3350 be PRINTed. 
Information is then updated - A CLUMP OF SEAWEED will 
be put into location five, an exit will become visible and the 
cut flag CF will be set to 1. In addition, the location 
description D$ (5) is altered before the subroutine 
is ended. 
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The verb "WEAR" allows the player to put on the FLIPPERS 
found in location six. If the player moves west or north from 
location 16 without protecting his or her feet, then instant 
death will occur on the poisonous spines of the sea urchins. 
The possibility of the flippers already being worn is covered 
in line 3410. In line 3420 the player is allowed to wear the 
flippers if they are being carried, i.e. OB (2) = 99, AND the 
noun input is "FLI.” The flipper flag (FF) is then set to 1 and 
the FLIPPERS are removed from the items carried with the 
instruction OB (2) = 0. The last two lines prevent the player 
from wearing any of the other objects. 
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The "GIVE” section enables seaweed to be given to the sea 
horses and a bone to be offered to the bonefish. Line 3510 
tests for the first possibility, and sends control to line 3550 if 
CP = 10 and the noun is "SEAWEED." Otherwise, the player 
must have satisfied all conditions. The following line prints a 
clue-filled message ending the subroutine. 


34 






















If conditions in line 3510 are not met then control falls to line 
3520 where tests are made to discover if the player is giving 
a bone to the bonefish in location seven - if it is, control goes 
to line 3580, Otherwise a "catch all" message is PRINTed and 
the subroutine ends. 


Line 3580 tests if the bone is being carried, and if it isn't, a 
message is PRINTed. However, IF OB (5) = 99 the player has 
satisfied both the bonefish and the bone conditions, and 
control drops through to line 3590. The bone is removed 
from the room by setting OB (5) to zero. An exit is then 
opened to the south when EX (7,2) is made equal to 13. 



A message is PRINTed in line 3590 that tells the player about 
the cavern and the bonefish. Finally, the location T$ and D$ 
are changed, ready for when the player types “LOOK!” 
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Nothing but Davy Jones' Locker (the CHEST) can be 
unlocked with the key. Line 3630 tests that the player has, in 
fact, picked this up. It may be that the player will try to 
UNLOCK the door in locations three and nine. However, the 
door is something of a red-herring (all good adventure 
games have these!), and can never be opened. Line 3640 
deals with this situation and tells the player that the key 
cannot be used. 


Control will only pass from line 3650 if the player is in the 
room with the locker and the noun input is "CHEST." If 
everything is in order the unlock flag UF is tested to ensure 
that the player has not previously unlocked the chest. Line 
3670 sets UF to 1 and the key is located in the room, i.e. OB 
(7) is made equal to 13, telling the computer that the key 
stays in that room. Finally, a message is PRINTed to hint that 
the action was successful. 



35 





















K> O 


7 0 0 R E i v l * -'*■ * * * * #■ ■* ■* *1J SI: * * * * * * *■ * * ■* -a ■* * * * * •>« 

/ i o :i: f c p x >:;.; o □ e n g < 1 4 ; h e: n p r i n t 1! v »i :n h h h>r ihi 1 is 

H" iFMViF HERE" 2 RETURN 

720 IF- HC<4 THEM PRINT" V4JU HiftlMt N !l GOS ENUUttH 
Pifli 9 !R: :|-:i. !! !l :: RE I'URN 

> F-'K i ! FI '■ ii H ii II f| it <!: !! i it!< l * ii IS EG H * "ii" MO W IF. „ H E' 1 S M ii 
rt :: & MUSE SO 1 11 " 

FOR 1-7 T(J l0u:4HIJ^;Nf;;.AT 
Hl>=0;: EX i 20 , X ) - :i 9 

T T ( 2 0 ■ ■ " V O y H R E ii M ii4 C O R iR X ii> O R H I ii H ft 
ii: OR REM S OO I !S"il G WrSI ;! 

377 0 D 9 ( 2 0 ) - 1 ' ft H 1 >! U ii ■! it IR i. HJ it , M Fit H H C ii. li.F |l O C T ii H P O 13 

G 1 ii S S iii II ...K I HG „ " :: RETURN 


3 7 4( 




1 - 1 . m — 1 — 1 


The "USE" verb is designed to allow the player to immobilize 
the octopus in location 20 with four sets of handcuffs - the 
instruction is "USE HAN.” 

Line 3710 checks that the player is in the correct position 
and that the noun number corresponding to the handcuffs 
(NO = 14) is valid. Line 3720 ensures that the player has all 
four pairs of handcuffs, If control drops through to line 3730, a 
message indicates that the octopus has been manacled. The 
handcuffs are removed from the player using a FOR... 

NEXT loop to set the object position to zero in line 3740. 
Finally, the number of handcuffs is made zero; a new exit 
becomes available to the west and the location description 
of the room T$ (20) and D$ (20), is changed. 

The final three parts of the program make up the very useful^ 
commands of "INVENTORY," “HELP” and "LOOK," without 
which the game would be extremely difficult to play. 
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The INVENTORY routine tells the player which objects he 
or she is carrying. If IN contains 0 then a command to 
“INVENTORY" would produce the words "YOU ARE 
CARRYING:- NOTHING!” on the screen, printed by lines 
3810 and 3820. However, if IN is not equal to 0, a loop starting 
at line 3830 checks each object to see if it is carried and will 
PRINT these on the screen if this is so. 
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REh ■* t* rRiELP ^ ■&&i 


;■ ■«; A TT A' S' A' : 


PR T NT : PR T N i" 
liiSiF . ,: 

920 FOR ]>'i ! i. i VV SPRINT 

930 PRINT :: PRINT " < VfMI 


i'HFSE TiiiROF I Hi MB K B S V M U ii'TiiiW 


VET;i) 
.« E IF ii> 


s :: Rlh. X i 
MINI I! V 


ii V P IE. I HE 


if : " II iR S ii ii H R E ii iL IF 1 I! ii R S > " :: RP ! URN 


At the command "HELP,” the three lines of program 3910 to 
3930 display each of the verbs on the screen to enable the 
player to construct acceptable two-word display sentences. 
A FOR... NEXT loop in line 3920 is used to do this with the 
maximum value of I set to the maximum number of verbs 
available - in this case, the value of W. 


¥ 


i. 


The last section of the program to be dealt with concerns the 
verb "LOOK", which allows the player to call up the location 
descriptions of the room he or she is in. If you have followed 
the instructions on page 24 (in the RUN box), you will have 
already typed this part of the program. This section is 
different from the other verb routines because it is used as 
the end of the INITIALIZE subroutine, linked by a GOSUB 
statement in line 5190. 

Line 4010 PRINTS the location descriptions T$ (CP) and D$ 
(CP). The lost flag LF is set if the player has ignored the 
warning above the south exit of location 16 and entered the 
SHARK ROOM (location 22). 

Lines 4020 to 4050 PRINT the object found in the location 
occupied by the player. Note that the mention of the OLD 
BONE is carefuly sidestepped in line 4030 to make the game 
more difficult. Lastly, the available exits from the room the 
player is in, are PRINTed in lines 4060 to 4100. 



4000 
40 1 C 

4 O 2 C 
4 O 3 O 
404C 
405C 
4 O 6 0 
4070 
4080 
4 >090: 
4 1 00 
4 1 1 C 


K to. rl d 4 ’" a- a a- a- a- ■«- L D U F. a a- a a a- a- a- -h- a- a- a:- a- a- 

PR I !4 1■ ; PR I MT 1 T (C P .> OR J N 1' 0if- ( CP ) :: .1 F FF 
THEN LF=I u RETURN 
FOR I ■ ■■ J Tij !0 
IF I-3 OND CP -1 3 THEN 


4-' 


IF GB(I)-FF THFN PR I NT l! irii 
NEXT I 

PR IN 10 PR I NT' 

IF EX C CP ? J. > : 

IF EX(CP,2)' 

IF EX(CP«3): 

IF EX(CP,4) 


it X Jf r E ■ M 
>0 THFN PRINT 1 
'■■O THEN PRINT' 
:>0 THFN PRINT' 
>0 THEN PR INI 1 


O R : : 1> ■. I 


‘Hi O fR: 1 it-!! 
S O if fi "ii" !H 
IF tii S ii 
IFiiE: S T 


1 S iiiiff- NO" 


0 

0 

© 

0 


PR I N T: PR t: NT:: PR I KIT:: Ri£ TURN 
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Improve your program 

The program that you have keyed in so far will give you a 
challenging adventure game. If you or your friends get stuck, 
look back to the game plan on page 8 to find your way 
through. But once you have stored the basic game on tape or 
disk, you can make changes and improvements. For 
example, you could clear the screen when the game is won 
or lost and design a more effective message to appear. The 
additions highlighted below create a maze from the rooms 
already given in the game plan. 


Creating a maze 


Many adventure games contain a maze as one more obstacle 
for the player to overcome. In this program, all you have to 
do is add extra exits to rooms 12,18,23, and 24. The revised 
DATA statements given below do this. In effect, all that 
happens is that when you take the wrong exits from these 
rooms, you end up where you started from. If you refer 
to the game plan and add these additional exits to the 
east and south you should be able to discover the only 
way out. Why not try to create a maze with some of the 
other rooms? 


0,1. h , 0,0 „ 5 , 1 7 „ 1.2,0 , O , 1 8,12', 1 1 
9,21,16,14, 10,22,17,15 

Dr i I 1% 1 1,23 , I 3 , 1 6 , 1 2,24 , I 8 , .1 7 ,, 0 , (), 20,0 , 0,0,2 1,0 

DATA 1 5 „ 0,0 ., 20 , 1 6, 0 ,0,0 , 1 7,23,24 , O , 1 £1, .24,2 4,23 


4 133 I R A „ 1 3 „ „ 

30' DATA 7 ., >3 , O , 0 , 8.0 ,, 15,0 


w\ 

(0,18,12/0 ‘ 
A - 


THE NEW EXITS CREHTEP \ 
RETURN THE PLAYER TO 
THE SAME ROOM, ANP 

IN EEEECT MAKE 

\D7 

/Z 

17 18 

■ (U,2A-/S/7)^ 

—J+A - 


THE MAZE INF/MTELY 
LAH&ER. 

Vfa 23,24,0 

| i 25 i 

■ (18,14-,U,25) 
i 24 i — 


\ 




--—- 
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The complete listing 

The complete listing for our adventure game - Neptune’s 
Caverns - is given below, for both the Apple He and the 
Commodore 64 computers. These listings include all the 
additional sections of program given on the opposite page, 
so they contain the complete version of Neptune’s Caverns. 



APPLE Ue 


10 PFM NEPTUNE :• (a VFKI-r. 

20 GOSUB 5000: RtN IN1TIAI 1ZF 
TO GOSUB 1 (too; RFM INPUT 
40 GOSUB i'uou: REN SGI-I 
50 IF WF * O AND II- ■■ THEN GOTO ■' 

60 GOSUB 5500? REN END 
70 END 

1000 REM INPlJf 
loin VBf - " ■■sl-H.I# - "" 

1020 INPUT "WHAT DO YUU Dll NE X I ' : K1 

1030 EUR 1 = 1 III I FIT i P to 

1040 IF MID* >.R i . 1 , 1 > ' " (HI II -oi i L i 

: NO f MID* (R*,l * i •■■I I ill O-I . 

1 < >50 NFX1 I 

lOfan If- Nut "" UIFN RtTllRU 

1070 P4- = LF.FTi '.hi, ;.) 

lop.:» IP Rt = "NOR" UR Pt "Mill" UK ; I "i ,, 

■ "WiS" THEN VB$ "GO ":NU4 Pt: RE I URN 

1090 IT Pt = HI I " i )R I- i - " I NV " UP R l 'in 

Nut = "DOU" : OB* Pt : I T I I ITT I 

1100 PRINT "1 DUN I UNDERSTAND Mini " 

1110 GOTO 10lo 
200u REM SUP I 

2010 OB - ’: NO U: TUP I I TO 7V 

2020 IF OB* = LFI It I i il i I OB j; 

2030 NEXI I 
2040 EUR 1 1 IU NN 

2050 IT NO* » NO*(1) iHEN NU *1:1 NN 
2060 NEXT I 

2070 IF NO = 0 OR OB = 0 1 HEN PR]Ml '• DON 
UNDERSTAND THAT ": RETURN 

2080 ON OB GOTO !.oOO, Inn, Cw, *.;.un, .., Hi 

00,3800,3900,4000 

■ ' M M i RE M IHHHHUfV » •'M.,1 ]• * r » i - » » - ■ - • v 

3010 IF NO 4 THEN PRINT "GO WHITT 
3020 IE EX(CP,NO) 

: RE TURN 

5030 I i i i ■ 16 AND ■ N() 

THEN LF - I: RETURN 
3040 CP EX <CP,NU): GOTO 4m.n 

100 REM 

3110 IF NO - 6 AND TP - 1 I HEN PR INI " i i ' . Inn 

HEAOY ‘"s RETURN 

3 I 20 J F N( i 8 THEN f P ill! "DON I B1 15 iLl v ": RE' 11 H 

3130 IF OB (NO - / > = 99 AND Nut "HAN" 

PRINT "YOU VE AL RE ADY GUI If 1 PI HIRt-i 
••140 FOR I -= / U. In 

' 1 5( ■ IF Ml:. I I IT AND Ml I - I I THFN NO I ' sift 

C + 1:1 - in 

'•160 NEXT I 

> i /') LFI )B (NO ?» -- . .1 mi N PR INI u.l . M ;l lb <Ni t 
= 99: IN = IN + 1: RE TURN 
’•180 PR I NT il I ' ■ 1 i I HER! ' ' : KM I IRM 
‘.300 REM 

5210 IF Nt' B I HEN I R INI ’ n< )N 1 BE !LLl '"t hfcl 

3220 FOR 1 ■» Ifi in 

2 ;.n it OB V ] > - • and NU 14 t Pit li Hn j . : s li 

r 1:1 = in 

324o NEXT I 

51 > IF OB (N( I -7) 99 THEN ! Till' " rOU NmVH-i 

GOT IT':RE I URN 

32 fan PR IN I "II. I . " : l IH < NO / .< i Frill Ili I 

32/0 IF CP - 19 AND NU - 13 'I HI li Wl = 1 

3290 PFTIIPN 
'• >0 REM 

3310 IF OB(1 ■ 99 I HE H PRINT * YOU Vi NU i MING 

SHARP ENOUGH 1 ": RE I URN 

3320 I I N< I III HE i l i 'RI rll "YUIJ t AH I f.lJI I Hh 

: RF. TURN 

3 3 30 IF Lp V IIIEli IF I ft I "rOU i mN I 14- Mini 1 

RE 11IRN 

■ 540 IF i I- I till 11 PR Mil 1 /tJU VI Al RI ,,.DONI IH 
1 " ; RETURN 


: RI I URN 
THEN PRINT "HO I •II IH.l Wn. 

1 Ell- NU 4 > mNd i l 


COMMODORE 64 


!. f-! I * ■ ft * , 3 * : 


"CAS" OR 


10 REM NEPTUNt f. Ca’/I N IS 
20 LSOSUis 50'X*: REM IMlTInl 1.0 
7.0 GO SUB 1 ooo : REM INPUT 
40 GOSUB 2000: I T M SORT 
VO ! F Wl 1 I ,111: III THEN GOTO 
60 GOSUB 5500; RI i f 
70 END 

lnjo RF.M ******** INF'IJT 
ioio VP*=" " : NO*” 1 ' "lit" " 

M2n INPUT "WHAT DO mi i-n Ml •■!":!'» 

10 30 FOR 1-1 TO LFN'RM 
1040 IF MID*(R*,1,1)=" " THEN VB4 
NO* ~M ID* 1 F: 1 ,1 + 1,7): I EE.NfPM 
1050 NEXT l 

J 060 11- NOT . " " THEN Pf 11 If M 
1070 R*=LEFT*(R*,3) 

1080 IF Pt - "NOR"OR R I-'" DU" DR HI 

R*=" WES" THEN VBr="DD ” : MU t R t: PF TURN 
1 o90 IF R*= "HEL" OR T:*-" INV" UR Rt "LOO' 

THEN NOT -"DOO":VBMft t:PF TURN 
1100 PRINT"I DON r UNDERSTAND THAT" 

1110 GOTO loin 

2000 REM* *•*•** ##SDR r******** ************ 

2010 VB=0: NO-'' 

2020 FOR 1=1 TO W 

2030 IF VB*=LEFT*(OB*<I>,3) THFN VB = I:MVV 
2040 NEXT 

2050 FOR Ml TO NN 

2060 IF NO M Mflt ( I ) THEN UU-I:I-NN 

2070 NEXT 

2080 IF NO-" OR VB=0 THEN PRINT"! DON T 
UNDERSTAND THAT":RF TURN 

2090 ON OB GOTO 5000, 3100,3200, >300,3400, 5 iOO, 5620 
,3700,3800,3900,4000 
3< >00 RE M* > * v - N ■ *#**G0********** 1 **'*'**** 

3010 IF NO 4 THEN PRINT "GO WHERE'”’: RETURN 
3020 IF EX(CP,NO)=o THEN PRINT"NO EXIT THAT 
WAY":RETURN 

3030 IF CP= 16 AND <N0=1 OR NO-4> AND FF--0 1 HEN IE-1: 
RETURN 

3040 CP=E X ( C.P , NO i : GOSUB 4' ■•»-) 

3050 RETURN 

31 00 REM* ******** **GET **♦ * * ******* * * *** 

3110 IF N0=6 AND CP=13 THEN PRINT"IT S TOO 
HEAOY 1 ":RETURN 

3120 IF NO 8 THEN PRINT "DON T BE SILLY”:RETURN 
3130 IF OB(NO-7)=99 AND NO* "HAN" THFN 

PRINT"YOU VE ALREADY GOT IT *":RETURN 
3140 FOR 1=7 TO 10 

3150 IF (OB (I) =CF' AND N0=14> THE N NOl +7: HC=HC+1: 1= K 
3160 NEXT I 

3170 IF OB(ND-7)=CP THEN PRINT"0.» 

I N= IN-* 1 : RETURN 

31 8» i PR INT"IT 1 SN l Hf RE • " : RE Tl JRN 
3 2 <:>'J REM* ******* * ►*DRdP*** * * ^ *• >* - * *«^ 

3210 IF NO<8 THEN PRINT"DON 1 he SILt 
3220 FOR 1=7 TO 10 

723U IF (OB ( I > *99 AND N(.i 1 4 > THEN 110=1* 7: H- -Hf 
7240 NEXT 1 

3250 IF QB (NO-7) 99 THEN PRINMYQU HAVEN I GOT 

IT 1 ":RETURN 

60 PR I li! "u.l . ": OB (NO- 7 ) =CP: f N 1 N I 
3270 IF CF' =19 AND N0=1 3 THEN WF=1 
7280 RF TURN 

77oE) REM*** *-r-*#-**-*-* CUT***********►*-*••■* 

3310 IF OB (DC 99 T HEN PR I NT " YOl ) VE NO T H IMG 
SHARP ENOUGH j ":RE TI IRN 

7320 IF NO li THEN PRINT "YOU AN I CUT THAI 1 ": 

RETURN 

3330 IF CP 5 THEN PRINT"YOU CAN * I DO THAT": 

RETURN 

7340 IF CF= 1 THFN PRINT"YOU 1 VF AI.RFADY DOME 
THAT'RETURN 


" : OB •' NO - 


- 99: 


v " : RF 11 lf-:l I 


1:1 1 
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APPLE lie continued 


t iW< = 


Kt Vt Ml 


.,] . it'HJ W \ Nl 'I >W i! j 


3350 PRIM I " i HF M-hWF.FD I , 

OPEN W I NDOW" 

’.;.60 DH ( 4 ' - 5: LX (S < II : U- 

)Al tDf (S' IH II '.L Ui •! . » ,5 
ir ": REILJKN 
\4Uu Kb M 

341 •» IF IF = 1 t'iNQ NO i "M 1 " I HbM 11:011 " fl:N I 
ALREAD'r GO I I HEM ON ' RF I URN 

34. •» IF 0B\2> - 99 AND NO* I'HHN FI 1: 

- FF« 1111 " I HE r F I I Nl I FI v ' RF.lUhM 

IF NU 14 AND Hi. u I Fit II PR IN I " I Hh I WALL' 

GIL l r 1 RETURN 

744" PRINT YOU LAN I WFaR i Hh 1 1 M : Rb 1 URN 

35 >0<» REM .*-* .... ^ * 

J.f, 1" IF I I - in AND NU - II (HEN ’.50" 

'•-..'ll IF IF' - / AND NU • l I HEN .'.FiLlu 

’530 IF IP - . ' T Fib N PR 1NI " I HA i NUN I LnJ mN r 

GOUI«"’: RF 1 URN 

3540 PR INI "NUTHINU HERE WAN IS II 1 ": W IURII 
3550 IF OPt4) 9V I HEN F R INI " , i )U Hi ML i . I Iml 

II": PE TORN 

356‘ i C"lR 14 ) - u: I iR • V I • ■ 

3570 PR1N1 "IHbt llkliWD ROUND rOM At-ln SOME IH11 M 
(M l FITS IN I Ht l.U! : " 1 • : RF IIJRN 

J580 If 0B<5) ••o IFIL-N I R 111 : " vdU HAVf M I liul 

IT": RE 11 JRN 

'.SR. . UR • ' - » " : L u ' I • 

56uu PRINT ’• IMF ■ I iH SNAN Ht •• I HI BONf AND Kl I IR1 .-. Il 
A CORNER'* 

3610 MU' ' "'iim ARE IN h ION i.m.TPN, m U IFU.I I .41 I,. 

IN INF' CORNER GNAWING UN A THIGH RONE": Rt ! URN 


! I II . . 1 i r U 

i FI. MM ,IIU 
.1 HI * ■ i INI I'll I t D 




F TOf 
I HI I 


L.L i 11RN 
IHF II P 


i l 11II U I i »o| I 


11 ir 


b 


Ml 


i.f TURN 
I 


f.Rl 


: i ii ii ;i .h 

..till I L 


’.9 1«. 


Ft !'• • 
FR INI 
II O I 
FUR i 
IF Ul > 
NF x I 
RFH 
PR IN I 
F OR I 


i .LED U» i ui 11 , 

• ** *.1IM 


: Ht 
IM Ilii 


I I 

I I F I I 


: i Mill " 

- ■ ' i I IP 11 

i : u t" 

i i i -• 'VV | Ht N PR 11! I 
i : Ri I OKI ! 

: f l N T " T HE SI <hl 

i rn ws mm m 


It IK r * * * * **. » - * ' ' 
ikt I Hl’K i I l-li - 
11 "i ii j : 11 j in. 1: 


JHt VERBS run MAt 
DM1',: NF \ I 

riFM IFIRE I 


t FR 1 NT " • . IIII lit t D ONI r MF't IMF f 

I i 1 IFRS) RF TURN 

4. MM JHMMr ft* *«*•** 001 iHr********-**** 

40lu PRINT : I FI l-l I Mil'll If f.f . . THEN LI 1 : 

RF 11IRN 

40.0 FOF- I l ii' I" 

4o3l> IF vl • 5 nND LF ID.’ I FILM 4 < 1 V > 

4 ,, 4 ., |i OB 1 I > - CP 1 HEN PR1NI M A " : u U t i I ) ; IS HER'F " 

4 * 01 NPXI i 

406*' PR IN I : PR 114 1 "1X11.5: " ; 

4070 il EX(CP,1) O THEN PRINT "NURIH 

40Bo IF EX(CP T 2> " THEN F RINI "SOUTH ": 

4090 I i EX (CP, 3) '.'I HEN PR IN T "EAS I " : 

4100 II EX(CP,4) 0 THEN PRIN1 ’WEST 

4(1" F'RINI : F'RINI : RE' TURN 

Fu.i’i REM ****ft****INI T 1 ALI Zb* ***♦ ^****-»f 

5010 HOME : PRlNl IhEU iu);"NEFTUNE 5 CAVERNS" 

502" PRINT : PRIN1 " YOU HAVE FOUND I HE MAGIC PLUG" 

5030 PRINT " I HA I bELONGS AT THE BOTTOM OF THE SEA" 
5040 PRINT " AND DECIDE TO REPLACE M BEFORE THE” 

5050 PRINT " WATER DRAINS AWAY. WITH YOUR SCUBA GEAR" 

5060 PR TNT " YOU DIVE INTO I HE OCEAN AND BEGIN YOUR ' 1 

5070 PRINT " ADVENTURf_” 

PRIN1 TABi TF YOU NEEI> ASSISTANCE IVF'b 


3: IN - I: HI.: - U:WF 


1 : LF 


5080 

HEL F 

509( ' l-JN - 1 4 : VV = 1 l : LF 

n : UF = ' *: FF < >: LF o 

5100 DIM f 0$(24> : DIM EX(24,4): DIM NuMNLO: DIM .Dir 
VV) : DIM OB* I IV' : DJ M IJD ilo> 

5110 FUR I - l IU Ml 

5120 H 1 17 OR I * 18 Oft I = 23 UR 1 <= 24 THEN l01 

< I ' = LOHIH: GO 10 5l4o 
: .1 fvFAD Di : 1 Ui 1 T 1 - D* 

5l4.» NF »' I I 

515C> FOR J - i TO 24; FOR J » l TO 4s READ EX (I ,J) : 

ME X T J: NEXT 1 

5160 FOR ! I !u 10: kl-oD OB*-(I) ; READ QB(I); III a I 1 

51 Vo FOR 1 - 1 in Ni-J: Rf AD "Ul (1) s ML X i 1 

5180 FOR l = I In Ws READ VB* < I) : NEXT l 

5190 GOSUB 4000: RETURN : REM LOOt 

5500 REM END 

5510 IF tF «s 2? I HEN PRINT "WITH ONE SWIF J SNAP THE 
SHA RP. RITES OFF' YOUR HEAD": GOTO 5540 

. ...wflSpS 


COMMODORE 64 continued 


3400 

3410 

3420 
34 ’0 

344«:i 

3500 

3510 

3520 


T-561 > 
357o 


358';) 
359< 1 


tl 


LfJRNFT 


t: ’R TNT" YOU H<Y.'l II I GUT II": 


1 HE B( II Jl 


Hi II' 


1 1 NO f 
IDN I 


1 Hu 


Ii U| 
UNI 1 . 
UF ' 1 : 
IF-.J 


381 ■.' 
3820 

3830 

3840 

3850 

390'» 

3910 

3920 
39 ) 

4 OOt i 
4010 

4030 
I04< > 
405<' 
4060 
4070 
4t 181 1 
4090 
1 1 01 1 
4110 

50 i'» 

S' >30 
5040 
5050 
5060 
5070 
5080 
5090 

51 ini 


5 1 20 
5130 
5140 


PR I NT"THE SEAWEED FALLS AWAY TG RFVF Al 
AN OPEN WINDOW." 

OB(4)=5: EX(5,2)-11: M- - I 

DF (5> ■ I. M-T f < D* ( 5 1 9 - + "AN OPEN WINDOW IN 

IT":RFTURN 
RE M *W£ ARK 

IF FF-1 AND NO$="FLI" THFN PRINT"YUM VE 
ALREADY COT 1 HEM ON ' " RETURN 
IF OB(2)=99 AND MU1""FI 1" THEN FF=l:OFU2> 

PRINT"THEY FIT NIEELY 1 RETURN 
IF NO-14 AND HC 0 THFN PR 1 NT "THAT S R! Al.l 
SILLY'RET URN 

PRINT"YOU CAN'T WEAR THAT!":RETURN 
REM > VE* # *•**-•►*-*•#+•■*>> *■*+■ + * 

IF CP=10 AND NG-11 THEN 355" 

IF CP-7 AND N0= 12 THFN 758*) 

IF CF~20 THEN PRINT"THAT WON T DO AMY 
GOOD'":RETURN 

PRINT“NOTHING HERE WANT S I:RETURN 
IF OB(4)* 99 THEN PRINT"YOU HAVEN I 

IT":RFTURN 
OR (4 ) OB < Vi :.].i 
PR I NT " SOME THING Gi.INT > TN THE 
RETURN 

IP OB (5) 99 rnrt, 

RETURN 

OB (5) --0: EX (7,7 ) 1 ' 

PRINT"THE RISH SNATCHES 
F:ETIh't;S ro u CORNER" 
n (7)= "YOU ARE IN A ! AVRPN. IN THE 
CORNER A" 

D* ( 7 ) - “ BONEF ISFI I' f UF. W 1 NG 1 , O 11 UN 
RONF " : RETUT-I-J 

F<l M **-*♦**-»•** ► rtlNI UCI *r*^*^^*i*.-#*^^ 

II UP - • ■ ?9 Mil N M I NT" YOlJ " VI N l iVFN 

c-flf A I F V 1 " : D'F TURN 

ul ID -1 I UR 1 i 1HFN PR INF " I'll RL 

t "l N m PE YF I' il F ■' " : KI TURN 
1 UR Nl ' (■ THI N F'f •' 1 N F " U M I U'-l l DU 

RF 11 IRN 

i HEN F'F: INI "I I S Al READY 
fc I" : F'| 1 1 IF.'N 

t ’! - I : :f T: 1 NT "IMF Mr IIIRNV- I null V " 

"rUU ARE IN U ROOM WITH AN OPEN 
C I IF. ST in I'll MIDDLE - " 

D* 1 " : Rb 11 'i’l l 

D EM*- •**-***»♦•■ *-( ISb « r * *• ► 

IF LF' .'• > UF; Ml 14 THEN PRINT "Yuli 1 nl-l 1 DU 
Tl Ii *T I IFF-1 ' :D'L TUF-M 

IF HC- 4 THEM F'RINI "••OU HAVEN I GUT FNUIIGH 
F u I RS 1 " : FF U IRN 

F'F I NT "IMF Ul 1 f iF LI 1 AN I MflVE.HF I SN I 
AMUSE D 1 " 

f OR ! • IN 1 ' 1 : 1 1 M t I ' -•'»: NF X f 

FI* -":l- X \ 4 1 --- 19 

TD ." "Yl'IU ARE IN A CORRIDOR W1IH A 
CURRENT GOING WEST’ 

D.F <•■'> ■ "A Mji URFIJI , MANACI.FD OC I UplJS 
SI ! -• : ;i 11 F ING . " : F\R TURN 
MM *»•»*♦** ► INVENTORY *»*****«*•*■*■ 

PRINT:PRINT "YOU ARF CARRYING:-" 

It IN-" THEN PR I NT " NOT HI MG 1 11 : RETURN 
FOR T=1 TO 1U 

IF OBI I)-99 THEN PRINT"A ";OB*(I) 

NEXT: RETURN 

PRINT:PRINT"TH£Sf ARE THE VERBS YOU MAY 
USE:-" 

FOR M TO VV: PRINT VB1M),;:NFXT I 
PRINT:PRINT "(YOU NEED ONLY TYPE THE 
FIRST THREE LETTERS)RETURN 
REM ***^***^ >4 -L00F: 

PRINT 3 PF< [NT M (CP) SPRINT D* (CP) : IF CP 
1 HEN LF=1:RETURN 
FOR L! TO 1" 

IF 1-5 AND CP=15 THEN 4050 

IF OB < I > =»CP I HE M F'RINI "A ” 5 DBS < I) ; •’ IS HERE" 

NEX1 I 

F'K'INl ; PRINT "EX 1 FS: 

IF EX(CP,I) 0 THEN PRINT"NORTH "; 

I 1 EX ( CP , 2 ) 0 I HFN PR I N I "SOI u H " ; 

IF EX (CP, 3) '-0 THEN PR I NT "FAST 
IF EX(CP,4) O IHFN PRINT"WEST "; 

F'R I NT: PR I NT : PF: T NT : RE TURN 

f<FM K-«-*HMHMHnt-»INTTIALIZE*******K-** 

PRINT" L^" 

PRINTSPC(12)"NEPTUNE - CAVERNS" 

PRINT ” YOU HAVE FOUND FHF MAGIC PLUG 11 i " 

PRINT"BELONGS AT THE BOTTOM OF THE SEA. AND ' 
PRINT"DEC IDE TO REPLACE IT BEFORE THE WATER" 
PRINT"DRAINS AWAY. WITH YOUR SCUBA GEAR YOU" 
PRINT"DIVE INTO THE OCEAN AND BFGIN YOUR” 

PRINT"ADVENTURE - . " 

PRINT "'IF YOU NEED ASSISTANCE TYPE HELP)" 

NN= 1 4*. VV= t 1 :CP=3s IN=1: HC»0s WF=Os LF=Os UF»0: 

FF=0:CF=0 

DIM T*'. 24) -.DIM DT(?4):D1M EX (74,4): DIM NO* (NN) : 
DIM VB^(VV) 

DIM OB*(10):DIM Ob(10) 

FOR 1=1 TO 24 

IF 1=17 OR 1=18 OR I=23 OR 1=24 THEN 
T 1 ( I)=T1(12):D*(I)=D*(12): GOTO 516C 
READ T * , D* T F ( I ) =T* : D* ( I ) -Da 




> 

•* 
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55." lb I p - W- (HbN F'KINI " I Hb ciF 1 Mb s UN I Hb SEA- 

URCHIN", nM VERY KUiSUNuUb 1 ruU bib H HORRIBLE DEATH 

HP * I 7 . ME TAK E bh'hl ,AUT IONS' LiUlO 5! -Ao 

5530 PRINT "WJ !H A THUNK THE PLUG DROPS INTO THE H 

:-l b AMI* m • >W I PI INIj WAIbRH GROW >1 11 l ( UNbRnTULA I IUNS 

1 .till -.AVb L GIL St-"5 1 

' . .4. • I NPI I ! "| " ■ . " ■ I ) Ml I I : r- t 

M i b.l U ■ I - 4 , i * - • , - I Hb N RUN 
55.-.. > i l- I N I 'BY l b r b ‘: l-L I UP! I 

. REM » .****►». K 1 b' i i uNS* »*♦»**)►» 

••"I” I'mIm "mil mKP ON I Hb GbftHb t •. I Hb. H, , , Wf I I:- 

Ml I II I l b r- , H HG .H il iRi il. I<i bf . " 

bAl.i 'il ill mI b nil i Hb I.LuBLD. In I bib mi HI III ii 
HAI-NAl 1 b J.i WALL IIIWI I-':. Hl'UVb rMU. " 

6 "*" DA: I A " * i. »l • Mb'b IN PPMNI UK A WUUDEN DOUR. T UU 
i ni l Tb MU HANOI P . " 

"D ' IV:in " if 011 Mb'b (IN I HI SLAMl U. 10 Hit olJU I H A 

I >: »KN"I. ! i " WALT I0WPP5 AbUOb yUlJ." 

DA 1 A " . 01 i Mi -1 i JN I : II- ' .1 ABED. 10 i HI SIlU IH A 
HARNhI I I I- Wnl I. HAS n SUUMPt bull H Qb sEAWEL D GROW I NT) 


ON i ! 


Hi il i 


11 • 


Yljll 


SEAHORSES ' 

6110 DATA 


H I Ml ft (IN I I il- SEi .Ml D. TO 1 HE : iUU ! H IS A 

H I.L lb I Hi ULI 6 THE Imht LAS I . " 

IN h, i LING, llJW i TAVERN. A! I Hb 
SWIMMING mAOUND." 

Ml A BRIGHTl rill CHAMBER.IHb 
i .1 i )W j N SH i NMt RI Nl ■ I 161I I - " 

I'M A D i Ml LIT i AVI RN WITH A 

i f II >. ,1 >1J i mi J 3 b F Ml j HANOI E. " 

IN A ROOM FULL Df HUNGHY 
lb yUUH HAND IN A FRIENDLY MANNER" 


NJ> 1 . 1 I -r * >1 Bl JNEI 1 SH I 
I‘i.Im " v 111 l nRI 

, FI OUR AND RUOF 
GATh ’• V(111 ohb 

DOOR AT lilt l" i il ■ 

J‘A I A " Till I mRK 
I HE i Nl I. 


" YOU ARl IN A OMAN ROUM.iH NUhT H WA , 
HAS A SMALL WINDOW IN 11 fHRCHJGH WHICH YOU CAN GFE 
THF SEABED" 

6120 DATA "YOU ARE IN AN AM-A-y NGLY SUUMh't hi.-Obl. 
THE WALLS,Fi-OOR AND ROOF ARE ALl SQUARE AS ARl ALl I'lil 
EXJ TS" 

6130 DATA "YOU ARE IN A 1) NY i MILK ... I HA f Is 

OCCUPIED BY A CHES F INSCRIBED WITH I I II INITIAl > D,J." 
614" DATA "YOU ARK IN A ENID, MURK y RUUM, 6 Rt> Ml IP 
SWIRLS AROUND YOU AND YOU Fbbi A FAINT LUM-FNT IT,5 1" 
6150 DATA "YOU ARl IN A GLOOMY AND bbi-Ti RLACF.ALl 

AROUND YOU ARE THE BONES OF l Ohm DEAD E 1PL0RERS’" 

6160 DATA "YOU ARF IN A SQUARE ROOM. 1 HE : >i .U1 H I- X { I 
HAS THE WORDS ‘DO NOT ENTER ABOVE IT. THE NORTH AND 
WEST DOORWAYS ARE CRAW1 TUG WITH SEA URLMlNs" 

6170 DATA "YOU ARE IN A ( IRCULAR ROOM WITH A VERY 

STRONG CURRENT THAI SWIRLS* AROUND THb ROOM AND DOWN A 
HOLE IN THE FLOOR" 

o 190 DA IA "YOU ARE IN A CORRIDOR WI1FI A STRONG 
CURRENT GOING WEST.YOUR WAY IS BLOCKED BY (HE ARMS OF 
A HUGE RAINBOW COLORED OCTOPUS." 

6190 DATA "YOU RE IN A SHIPWRECKED CAPTAIN 5 CABIN 
AND FEEL I HE FLOW OF WATFR TO THE WFbI" 

6200 DATA "YOU SEE A RUSH OF SWIRLING WATER AND FACE 
i GREAT WHIft SHARK." 

0,0,2,0, 0,0,3,1, 0,0,4,:', u,o,5,: 

0,0,6,4, i >,0,0,5, 0,o, S,m, 0,14,0,/ 

0,15,0,O 7 0,16,0,0, 5,17,11,M, u 
7,0,0,0, H,0,15,0, 9,21,16,14, 1 


THF JAWS OF 


62 1 0 
6220 
6230 
6 24 1 ■ 
6250 
15 

6260 
,21 ,0 
6270 
24 2 3 
6300 


REM * 

DATA 

DATA 

DATA 

DATA 


, 18,1* , 11 

), 22,17, 


DATA 


11,23,18,16, 12,4,18,1- 


REM ****"***( 


,0,O,20, O.O 
* **OBJECTS** 


6310 

DATA 

KNIFE,2 

6320 

DATA 

PAIR DF FI IPPERS ,6 

6 ■ 5< 

DATA 

KEY, 0 

6 3 4" 

DATA 

CLUMP OF SEAWEED,O 

6350 

DATA 

ROTTEN OLD BONE,15 

636f.) 

DATA 

MAGIC PLUG,99 

6370 

DATA 

YELLOW PAIR OF HANDCUFFS," 

6380 

DATA 

GREEN PAIR OF HANDCUFFS,^ 

6 390 

DATA 

RED PAIR OP HANDCUFFS,17 

6 400 

DATA 

BLUE PAIR OF HANDCUFFS,11 

6500 

RE M i 

^.************NUUNS********** * 

6510 

DATA 

•"Mb .'"I' i O:"., - ,w. :;,KN1 ,1-L 

SEA,] 

BON,PLU 

, HAN 

6520 

REM 

<■********* ***VFRBS**** ******^* 

6530 

DATA 

GO ,GE T,DROP, l:H 1 ,WF AR,G!VE,UNLOCI . 


lNVT. NT' iK y 1 • ; -,1c: 


5160 NEXT 1 

5170 FOR 1=1 TO 24:FOR J =1 TO 4:READ* EX(I,J):NEXT J.I 
5180 FOR 1 = 1 TO 10s READ OB*<I>,0B«I):NEXT .1 
5190 FOR H-J TO NN: READ NO*‘l‘:NEXT T 
5 2 ".> F OP' I - 1 TO VVsPFAD VB f ■ i ' : NF X T T 
5.-10 &nsu& 4000 : RFTIIRN: RFM I.OOF 
55' )'. ' RE M + * | l**>->*Y>-»llF.ND»'IHHl*IHHHi)HHf»>>*- 
1510 IF CP-22 THEN PRINT"WITH A SNAP,THF SHARI Gills 
OFF YOUR HEAD":GOT 05570 
55.'O TF i p- 17. THFN PR1NT"Y0U HAVE 5TFF'F i . ON A 

poisonous sea-urchin" 

u .5 30 IF Cp-U, T Ht N PR I NT" YOU PTF A HOPP IBM 
DEATH.": GOTO 5570 

554" PRINT"W1TH A THUNK * I HI. Pills URol". IMG INI " 

5550 FR 1 N T " HOI F AND I HF SW1RI INI. WAJKRS i .Ri i|>J . 1111 " 

5560 PRINT"r.ONRRATLU.AT TONS, YOU SAVFp II ll Ml 

55 70 I Nf 'HI "I'M YOU WISH TO PI A» Af I N" :PI 

5580 IF I. F F* T f (R I . 1 > - " Y " I HF M RI IN 

5590 PRINT "HyT.- BtL ";K'| II'F-'N 

6 < "X> Rb M* » ** *****DFSCRIPTIONS*****x**** 

Xlii DATA "YOU ARE ON THF SFAOFD. i HF WAY WI ST 15" 

601 1 DATA "Hi mo ED BY A HIGH CORAl REEF " 

>2» ■ DAT A "YOU ARl I IN T ! IF ' IE API D. TO THF si HJTH A" 

6021 DATA "BARNaiLFD WALL TOWERS ABuVF /OIL" 

"YOU ARP IN FRONT OF A WiiODEN DOOR.YOU" 

"CAN SPI- NO HANDLE - " 

"YDU ARl gn THE SEABED.TO THF SOUTH a" 

6041 DATA "BARNACLED WALl mWFRS AB 0 V 1 YOU.” 

6050 DATA "YOU ARE ON !HP SEABED.TO THE SOUTH A" 

605! DATA "BARN AC I FD WAIL HAS A SQUARE PATCH OF 
SEAWEED GROWING ON IT." 

6060 DATA "YOU ARE ON THE SEABED.TO THF SOUTH" 

6061 DATA "IS A BARNACLED WAI L. A Cl O F BLOCK 5 THF 
WAY FAST." 

6070 DATA' "YOU ARP IN h LONR,lDW CAVERN.Al I HP FAR" 

6071 DATA "END A LAR 6 I BONEI ISH 1 SWIMMING AROUND.” 
60B0 DATA "YOU ARF IN A BRIGHT! tin CHAMBER.THE" 

6081 DATA "WALLS,FLOOR AND ROOF GLOW IN SHIMMERING 

LIGHT." 

6090 DATA "YOU APE IN A DIMLY l IT I C 'FPN WITH A" 

6091 DATA "HUGE DOOR AT THE FAR END. rOU CAN SEE NO 
HANDI F . " 

61 <m ■ DAT A " YDU ARf IN A ROOM FIJI l Ml HI INC >1 r 
6101 DATA "SF AHOPSES. TFIFY NUZ71F YOUR Hb.ND IN A 
FR T ENDL V MANNER." 

6110 DATA "YOU ARl IN A SMALI ROOM. T HI NORTH WALl ’ 

6111 DATA "HAS A SMAL.L WINDOW IN IT THROUGH WHICH 
YOU CAN .--i E THE 5 EABED 

6 ;l 20 DATA " Yi 1 1 I ARF IN AN Ah •> -F-NGL Y SQUARE ROOM' 
6121 DATA " I HF- WALLS,FLOOR AND ROOK ARF ALT SQUARE 
AS ARF AU THF EX I IS." 

6130 DATA "YOU ARE IN A TINY I Mur ROOM THAT IS" 

HF ST INSCRIBED WITH THE 


60 3m DA| • • 
6031 DATA 
6040 DATA 


DATA "YOU ARF IN A 
6131 DATA "mi 'CUPTF D BY A 
INITIALS D. <7 . 11 

6140 DATA "YOU ARF' IN A < 

6141 DATA "SWIRLS AROUND 


621 <: 

62 2< 


6 ?fc>' 


Mli'.MORbY RMOM.GREY MUD" 

YOU AND YOU FEEL A FAINT 
CURRENT TO THF FAST." 

6150 DATA "YOU AN' IN A GLOOMY aNL> EERIK. PL AC F. ALl " 

6151 DATA "AROUND YOU APE !hi BONf - Of LONG DEAD 
EXPLORERS'" 

6160 DATA "YOU ARE IN A '4,'UARF ROOM. THE SOU 1H PX1I 
HAS IHF WORDS DO NOT ENTER' * 

6161 DATA "ABLiv'E II. TIT NORTH AND WEST DOORWAYS ARE 
CRAWLING WITH SLA URCHINS . 1 

61 30 DATA "YOU APP JN m CIPCUli.R ROOM WMH A VE PY 
STRONG 1 i JR RE NT THAT SW 1 RI S " 

61 'J DATA "AROUND INF ROCi-l AND DOWN A HOLE IN THF 
FI GOR. " 

61B" DATA "YOU API IN A 1 0RR1DGP W11H A STRONG 
CURRENT GOING WFST. YOUR WAY" 

61H1 DA IA "IS RI OCKFD "Y THF ARMS OF A I ARGE 
RA I NBOW i 01 01 ;l r- OC I OPIIS. " 

>0 DATA "YOU RE IN A SHIPWRECKED CAPTAIN S CABIN" 
61^1 DATA "YOU FFFl HU FLOW OP WATFR TO THF WEST." 

6200 DATA "YOU SF F A RUSH OF SWIR! ING WATER AND" 

6201 DATA 'FACE mi JAWS ' A GREAT WHITE SHARK." 
REM***"***"*** **-**FX 1 G3 *-****■*■*-•**'►*#■* 

DATA ' i, 0,2,'), 0,0, 2, I, <>,»i,4.2, f,o,5. r . 

6 '■ > DATA 0,0,6,4, 0,0,o,5, 0,0.,8,0., 0,14,0,7 
6240 DATA 0,15,0,0, O, Id ,0,0, 5,17,12,0, 0,18 ".II 

DATA ?,0,0,0 8,0,15,0, 9,21,16,14, 10,: *,17,15 

DATA 11,23,18,16, 17,24,0, r*, 0,0,70,0, 0,0,21,0 
6270 DATA 15,0,0,20, n. 17,0,24,0, 18,0,0,23 

6300 REM************OBJE( TS************ 

6310 DATA KNIFE,-' 

6320 DATA PAIR OF Fl rPPERI . 

6330 DATA KEY,0 

6340 DATA CLUMP OF SFAWEFD," 

)0 t>i . 1 " I 'M l r£ M OL D Bl INt , ' ’ 

6360 DATA MAGIC PLUG,99 
6170 DATA YELL DW PAIR Ob HANDCUFFS,0 
6380 DATA GK'EbN PAIR OF HANDCUFFS,9 
6390 DATA RFD PAIR OF HANDCUFF S, I 7 
6400 DATA PI L'E PAIR OF HANDCUFFS, 1 1 
65'".' RFM********** ** *NUUNS* #■******■**#** 

65 l" iIAI i. I IMP .SI in , b AS . WF - , DCKJ ,( HE , W I M , l N l , I l 1,1 Ft,SEA, 
HON, I'l I I, HAN 

i REM** * * * • ***** ** VERBS** 

.-5 ■ DATA GO .GET. Dpf iPj.'l 11 , Wl ,,|. , i .) VF J INLULK , USE , 

INVENTORY Jill l .1 OOF 


! 
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Array 

Glossary 

An array is a set of data, held together and identified by one 
variable name (see also the entry for variable ). One way of 
imagining an array is as a series of boxes within the 
computer’s memory, with each separate piece of data held 
in a separate box. 

DATA 

A list of information that is required by a program. DATA can 
consist of words or numbers, or both together. A program is 
sent to the DATA with the instruction READ, 

ON N GOTO 

This instruction followed by a series of line numbers tells the 
computer to jump to the Nth line number in the seres given. 

For example if the value of VB is 2, then ONVB GOTO 1500, 

1750, 3900 would send control of the program to line number 
1750. 

FOR ... NEXT 

This is a sequence of commands that are used to make the 
computer repeat an operation a certain number of times, For 
example, the instructions FOR X= 1 TO 5:PRINT 2*X:NEXT X 
would cause the computer to display the two times table. 

GOSUB 

GOSUB XXXX sends control of the program to a subroutine 
starting at line XXXX. The search for line XXXX starts at line 

0 - so the program will run faster if subroutines that are 
called most often are placed near the start of the listing. 

GOTO 

This instruction tells the computer to jump directly to the 
specified line number, missing out any lines in between. It is 
often used with IF ... THEN (see below). Be careful when 
using GOTOs, as it is easy to have the program jumping 
backwards and forwards so much that the program is 
difficult to follow. 

IF . . . THEN 

This is used as a way of telling the computer to do something 
only when certain conditions are true. This instruction often 
looks something like this: IF score = 10 THEN PRINT "WELL 
DONE, YOU'VE WON!!!" 

INPUT 

This instruction allows the computer to be given information 
while a program is running. When the computer comes to an 
INPUT instruction it prints a question mark (on some 
computers a different symbol) to prompt the user, and waits 
for the input to be given, 

LEFTS 

In BASIC this instruction is used to copy the left part of a 
string starting at the left hand end. It is followed in brackets 
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by figures which indicate the particular string and the 
number of letters to be copied. RIGHTS does the same, but 
starts from the right hand end and MIDS is used to copy from 
the middle of the string. 

LEN 

This a BASIC instruction which counts the number of 
characters in a string. 

LET 

This is one way of giving the computer information. In some 
programs there may be statements such as: X= 10 

This simply means that the number ten is stored under the 
label X. It is often clearer to write: 

LET X= 10 

The LET statement also gives rise to something that at first 
sight seems illogical, if not impossible. In many programs 
you will see things like: 

LET X=X+1 

Of course, in mathematical terms X can’t equal X+ 1. All this 
type of statement means is "increase the value of whatever is 
stored lnXbyone.” 

LIST 

This makes the computer display whatever program is has in 
its memory. You can LIST single lines, or parts of a program 
by following the LIST command with the appropriate line 
numbers. 

PRINT 

This tells the computer to display something on the screen. 
Letters and symbols that are to be displayed should be 
enclosed in quotation marks, but numbers need not be. 

RETURN 

This is the signal to end a subroutine. RETURN causes 
control of the program to go back to the statement following 
the most recently executed GOSUB. 

Subroutine 

A subroutine is a collection of program instructions making 
up part of a program and used to perform a specific task. 

The same subroutine may be called to do the same task at 
different stages of the main program. 

String 

A string represented by the symbol $, is a series of letters 
and/or numbers that are enclosed within double quotes. The 
computer will not try to interpret any information given 
within a string, and in most cases will simply print it on the 
screen when required. 

Variables 

When you give the computer information you have to give it 
a label under which it is stored. This label is called a 
variable since the information it contains may change during 
the course of the program. When you want the computer to 






Index 

A 

arrays 14, 15, 19, 20, 22, 26, 31, 

32, 37 

C 

control program 14, 19 

D 

data statements 10, 12 

E 

END subroutine 18, 19, 23 
12, 26, 32, 35, 36 

F 

flags 14, 15, 18, 19, 20, 23, 26, 28, 
31, 32, 34, 37 
format 10 

FOR... NEXT loop 15, 27,30,31, 

33, 36, 37 


- -— 1 j. 

do something with the information, you must refer to it by its 
label - its variable name. For example, the statement LET 
A=6 places 6 under the variable name A. 

There are two types of variable. A numeric variable is one 
in which the information stored will always be numbers. If 
the data to be stored consists of letters or words then a string 
variable must be used. The variable name must then be 
followed by the string sign - $. So, for example, if you wanted 
a name stored the statement would read: LET N$=“JAMES”. 

String variable information must always be in quotes. 


G 

GOSUB 14,19, 31, 37 

I 

INITIALIZE subroutine 14, 19, 
20, 21, 31, 37 
initial values 13, 15, 20 
INPUT subroutine 16,19 
inventory 16, 21, 26, 30, 32, 33, 
36 

L 

line number 10 
location 8, 9,10, 12, 15, 20, 26, 
28, 29, 30, 31, 33, 34, 35, 36, 37 
loop 17, 21, 22, 30, 32, 36 

M 

mam program 13 
memory space 15, 20 


O 

object description 12 
object location 26, 27, 30, 32, 

33 

P 

parsing 17, 22 

S 

SORT subroutine 15, 17, 19, 20, 
22, 26, 32 

subroutines 14, 15, 16, 17, 19, 20, 
21, 22, 23, 25, 32, 33, 34, 35, 37 

T 

testing 24 

V 

variables 13, 14, 15, 17,19, 20, 22 
verb routines 25 
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